undef $/; 
$file = <IN>; # to slurp whole file at once

$file =~ s/ # some complex regex //m;