Help for this page

Select Code to Download


  1. or download this
    /((msg|vacation.msg)|a(cation.msg|t(ation.msg|ition
.msg))|catation.msg|g|i(on.msg|tion.msg)|msg|n.msg|on.msg|sg|t(ation.
...
  )
 |vacation.msg
)/x
  2. or download this
    my @remove = qw(
msg
...

my $vacation_re = join "|", @remove;
$vacation_re = qr/$vacation_re/;
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
vacation
vacation.msg
vaccatiion.mmssg