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

snafu^|^foobar
2nd try
text: ^
field:

snafu1|^foobar