#!/usr/bin/perl
# w5.4.pl regex4.pl: general multiplier  -- a{2,3} one to three a's
@a = (br, bar, baar, baaar);
foreach (@a) {
  if(m/ba{2,3}r/) {print ("$_ ");}
}
#prints  baar baaar
