if ($newpasswd =~ /(?:\W|_)/) {
    # EXECUTE SOME THINGS
}