in reply to How to parse a tab delimited file

If you use Text::CSV_XS you've got that feature and more.

my $csv = Text::CSV_XS->new(
    sep_char => "\t",
    escape_char => "\\",
    quote_char => undef );

[download]

In Section Seekers of Perl Wisdom