#!perl

use strict;
use warnings;

while (<DATA>) {
  chomp;
  s!\s+! !g;
  my $txt = $_;
  print "$_\n";
  my @items = ();
  print "FOUND: @items\n" if (@items = ($txt =~ m!\btest \w+(?:(?: is)? \w+)?(?: ?, ?(\w+)(?:(?: is)? \w+)?)+!ig));
}

__DATA__
this line has nothing, nothing, nothing...
1 , 2, 3, 4 is four, 5, 6 test 00,11 is one,22,  33 is three,44,55 is  the best, and  this  is not a test 111, 222, 333 as random  words to finish
this should be a test, but nothing must be returned 4444, 7777, 9999 is garbage