my @strings = ( "bla foo qwerty",
                "bla foo bar bla oontz letters meh stuff qwerty",
                "bla foo bar letters stuff qwerty" );
foreach my $string ( @strings ) {
    print "Match.\n" if $string =~ m/\bbla\b[\w\s]*?\bqwerty\b/;
}
[download]