for ( XXX some loop ) {
   $patt = gen_patt( $blah);
   eval 'for $i ( @lines) {
             if ( $i =~ m/$patt/o){
                  process( $i);
             }
         }';
   die "eval error" if $@;
}