my ($num) = $string =~ /(\d+)/;
# Added
$num += 0;