while(<>){ @_=/./g; print "@-|@+\n"; ()=/./g; print "@-|@+\n"; /./g; print "@-|@+\n"; (/./g); print "@-|@+\n"; ()==/./g; print "@-|@+\n"; $_[/./g]; print "@-|@+\n"; /./g; print "@LAST_MATCH_START|@LAST_MATCH_END\n"; } #### # INPUT: 1234567 # OUTPUT: 6|7 6|7 0|1 1|2 2|3 3|4 |