use strict;
use warnings;
open (FILE,"+<","test");
local $/=undef;
my $a=<FILE>;
$a =~ s/^(.*)$/<pre>$1<\/pre>/gs;
seek(FILE,0,0);
print FILE $a;