@strings=('aaaaaa','11111aaaaa');
foreach (@strings)
{   my $ord = (my ($number, $letter) = /(\d*)([a-zA-Z]+)/);
    print "$_\n";
    print "\tORD = $ord\tNUM = $number\tLET = $letter\n";
}