perl coding ?

[Aaron Peterson]

>> An temp field $dup-counter contains an counter that is
>> suffixed with x as in 23x  have no idea how big of an
>> number the counter can grow to. The suffix is all ways
>> one position but has different alpha values.
>>
>> How do I separate $dup-counter into two new  fields?
>> $dup-number  and  $dup-sufix

> This will do it:
>
> $dup-number = substr($dup-counter, 0, length($dup-counter) - 1);
> $dup-suffix = substr($dup-counter, -1, 1);

or alternately:

($dup-number,$dup-suffix) = $dup-counter =~ /(\d+)(\w+)/;

the regex could be loosened or made more strict as needed...
aaron