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