regarding the validation of the input file separator in perl : I have csv input file in perl which is tab separated.
I would like to add a check if it find anything other than tab as field separator then it  should through error message.I am new to perl I don't know how to check.
example of my input file:My file having only two field.
10001027^I1000102713921-1274^M$
10010121^I1001012113921-1234^M$
10000104^I10010126139211-9999^M$
10010119^I10010126139211-9999^M$
Thanks

