Help for this page
$foo = qq{^snafu^|^foobar^\n}; ... print "field: $field_sep\n"; print $2;
H:\script>perl majingz.pl text: ^ ... field: snafu1|^foobar