while (<DATA>)
{
    chomp;
    my ( $letters, $numbers ) = ( /^(\D+)(\d+)$/ );
    print "$letters\t$numbers\n";
}
__DATA__
art1012387
stuff458353
other432610