while(<>)
{
  binmode ARGV;
  seek ARGV,0,0;
  local $/
  $_=<>;
}

##</code><code>##

while(<>)
{
    close ARGV;
    open ARGV, $ARGV or die $!.' '.$ARGV;
    binmode ARGV;
    binmode ARGV;
    local $/;
    print $_=<>;
    close BINMODE;
}