#!/usr/local/bin/perl

while ("balata" =~ /.a/g) {
        $match = $&;
        print ("$match\n");
}
