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

#!/usr/local/bin/perl local $/ = '%'; open A, "<$ARGV[0]" or die "Nope"; while(<A>) { print; }
And a file like this
1%2%3
prints
1%2%3
Did I go stupid at somepoint?