/.(?{ do_smth( $& ) })(*FAIL)/ for @lines; #### /.(?{ do_smth( $& ) })(*FAIL)/ #### do_smth( $& ) while /./g; #### do_smth( $& ) while /./g for @lines; # syntax error #### do{ do_smth( $& ) while /./g } for @lines; #### s/./ do_smth( $& ) /ger for @lines;