foreach my $line (<MVMT>)
{
    print $line;
}

##</code><code>##

my @foo;
foreach my $line (<MVMT>)
{
   push( @foo, $line );
}
my $file = join('', @foo);