#usr/bin/perl
#2008 midterm
#
@a=('bb',  'bb*',
    ' *',  ' +',
    '^b',  '[^b]*');

$s0= "aaa*b+23";

foreach $s (@a) {
   if ($s0 =~ /$s/) {
      print "$s: $'!$&!$`\n";
   }
}