/.(?{ do_smth( $& ) })(*FAIL)/ for @lines;