http://qs1969.pair.com?node_id=178081


in reply to Substituting data

Try this: 
$line =~ s/\t/ /g;
$line =~ s/^/\a/;

[download]

In Section Seekers of Perl Wisdom