if ($str =~ /^(?!1$)\d+$/) {
    do_stuff($str);
 }