Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl -w

...
    print "$&\n";
    pos( $a ) = pos( $a ) - length( $& ) +1;
}

Select or download this
```
aa
aA
...
bB
AA
Aa
```