http://www.perlmonks.org?node_id=366338

Public Scratchpad

Download, Select Code To D/L

---

#!/usr/local/bin/perl

local $/ = '%';

open A, "<$ARGV[0]" or die "Nope";
while(<A>) {
    print;
}
[download]

And a file like this

1%2%3
[download]

prints

1%2%3
[download]

Did I go stupid at somepoint?