Help for this page

Select Code to Download

Select or download this

$gw="abcdefgh";
if ( ( my $a = $gw ) =~ m/abc/ig){
...
if ( ( my $e = $gw ) =~ m/fg/ig){
    print pos( $e ), ": fg\n";
}

Select or download this
```
3: abc
5: cde
8: defgh
8: gh
7: fg
```