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