#!/usr/bin/perl -l

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use warnings;
use List::MoreUtils 'any';

my($string) = q(mamy dady bal foo bar);

my(@allwords) = split(" ", $string, 0);
my($revwords) = join(" ", reverse(@allwords));
my(@strings_list) = scalar reverse $revwords;

my $match = any( 
    sub { /^ymam*/}, @strings_list,
);

print "match" if $match;
print "no match" unless $match;