Match one or zero alphanumerics followed by a single space character
$p = "This is a pattern test."; if ($p =~ /(\w?\s)/){ print "$1\n"; } if ($p =~ /(\w\s)/){ print "$1\n"; }