~$ perl
$rx = qr/( (?: \w+ (?:\s+\w+ )? )?+ ; (?: \w+ (?: \s+\w+ )? )?+ )/x;   
print "gaga\n" if ';' =~ $rx;
gaga