if ($_ =~ m/^\w.*$/) {
    # Process
}