#!/usr/local/bin/perl

local $/ = '%';

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

##</code><code>##

1%2%3

##</code><code>##

1%2%3