$str="art1532";
($a, $b)=$str=~/([a-zA-Z]+)(\d+)/;
print "$a --- $b\n";