Regular Expression Perl

if ($p =~ /(\w+\s)/){ print "$1\n"; }