erikharrison's scratchpad

Public Scratchpad

#!/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?