in reply to Regular expression help

my $result = join ' ', (split m/ /, $string)[0, 3];

[download]

In Section Seekers of Perl Wisdom