Help for this page

Select Code to Download

Select or download this
```
s/i_// for @info;
s/d_// for @data;
```

Select or download this

# Usage: erase STRING, LIST
sub erase {
    my $re = quotemeta shift;
    s/$re//g for @_;
    1;
}