You might want to look into Regex::PreSuf, which is designed to build an optimal regex to match many strings like yours.

(From the perldoc:)

    use Regex::PreSuf;

    my $re = presuf(qw(foobar fooxar foozap));

    # $re should be now 'foo(?:zap|[bx]ar)'
[download]

You could then do an s/$re//og, once you've built $re for your set of strings. --
Mike