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]

$content= "bla foo bar letters stuff qwerty";
if ($content =~ /bla (.*?)qwerty/){
  print "matched!\n";
  @stuff = split /\s+/, $1;
  print "The stuff ".join(" ", @stuff)."\n"  if @stuff;
}
[download]