...
    for my $chr ( split //, $doword ) {
        $pat .= ( $chr =~ /\W/ ) ? $chr : '=';
        for my $ltr ( @letters ) {
            $got_a_pattern++ if ( $chr eq $ltr );
        }
    }
    if ($got_a_pattern)  {
        ...