#!/usr/bin/perl
# w5.1.pl regex1.pl: asterisk

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

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