This example might help you.

#!/usr/bin/perl

use strict;

my $string = 'to test me';
$string =~ /to\s(\w+)\s/;

print $1;
[download]

Please see perlre for more information specifically under capturing buffers.