use strict;
use warnings;

my $text = 'text';

my $str = 'text some words here';

if  ($str =~ /$text \s ((?: (\w+) \s?)+)/x)
{
	print "The words after text are :$1\n";
}

prints:
The words after text are :some words here