do{ do_smth( $& ) while /./g } for @lines;