s/./ do_smth( $& ) /ger for @lines;