Regular Expression Perl

#!/usr/local/bin/perl 
while ("balata" =~ /.a/g) { 
   $match = $&; 
   print ("$match\n"); 
}