my $string = "a b c";
my $middle = ($string =~ /(\w) (\w) (\w)/)[1];
print "middle=[$middle]\n"; # prints b
[download]

Dave.