($var) =~ /^[^a-z]+([0-9]+)/;
print "$1\n";