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

Now that I stop to think about it, you should check if the match is successful and if you really have letters up front. Changing that makes the following while loop:

while (<DATA>)
{
    chomp;
    if ( /^([a-zA-Z]+)(\d+)$/ )
    {
        my ( $letters, $numbers ) = ( $1, $2 );
        print "$letters\t$numbers\n";
    }
    else
    {
        print "No match: $_\n";
    }
}
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

my ($word, $number) = split /(?<=\D)(?=\d)/;
my ($word, $number) = /^(\D+)(\d+)$/;
[download]

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]

If you're using split(), I'd be inclined to do split /(?=\d)/, $_, 2;. It feels faster to me.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

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