Mega Code Archive

 

Categories / Perl / Regular Expression

 

Match at least one alphanumeric followed by a single space character

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