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