local $/;
my $file = <IN>;
while( $file=~/$regex/gm ) { ... }