Help for this page

Select Code to Download

Select or download this

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

Select or download this

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