#!/usr/local/bin/perl

local $/ = '%';

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

1%2%3
[download]

1%2%3
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.