Select Code to Download

while(<>){
    
    @_=/./g;    print "@-|@+\n";
...
    $_[/./g];    print "@-|@+\n";
       /./g;    print "@LAST_MATCH_START|@LAST_MATCH_END\n";
    }

# INPUT: 1234567
# OUTPUT:
...
2|3
3|4
|