#!/usr/bin/perl
# w5.2.pl regex2.pl: asterisk

@a = (br, bar, baar, baaar);

foreach (@a) {
  if(m/ba+r/) {print ("$_ ");}
}
#prints  bar baar baaar
