Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
for my $str ("DESIGN & PLAN:", "DESIGN/PLAN:", "DESIGN PLAN") {
    print "Matched $str\n" if $str =~ /^[A-Z &\/]+[:|;]/;
}
  2. or download this
    Matched DESIGN & PLAN:
Matched DESIGN/PLAN: