#!/usr/local/bin/perl

local $/ = '%';

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