my $str = 'foo' . chr(215) . 'bar' . chr(215) . 'baz';
print $str, "\n";
my ($a,$b,$c) = split chr(215), $str;
print "As simple as $a $b $c";
__DATA__
foo×bar×baz
As simple as foo bar baz
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print