if($last =~ m/\D/) {
    ... # Process as a non-integer string

else {
    ... # Process the integer
}