if ( $temp2 =~ /[^a-zA-Z]/ ) {
    die "Wrong input";
}
else {
    # Do something useful
}