Help for this page

Select Code to Download

Select or download this
```
s/foo/bar/
s/(fo)o/bar$1/
```

Select or download this

while(my $line = <FILE>) {
    chomp;
    eval "\$string =~ $line; 1" or die $@;
}