Help for this page

Select Code to Download

Select or download this

$foo = qq{^snafu^|^foobar^\n};

...
print "field: $field_sep\n";
print $2;

Select or download this

H:\script>perl majingz.pl
text: ^
...
field:

snafu1|^foobar