Match the first alphanumeric character
$p = "This is a pattern test."; if ($p =~ /(\w)/){ print "$1\n"; }