my $module = do {
   open(my $fh, '<', 'Module.pm')
      or die("Unable to read Module.pm: $!\n");

   local $/;
   <$fh>
};

eval $module or warn $@;
$module =~ s/^for;$/#for;/m;
eval $module or warn $@;