another regx ...

[Jerry Preston]

Hi!

I am getting no where on this and it is not that hard.

I am trying to break down the following:

D-2165033-10.TKB61a

into

D   2165033   10

and

4-2175587-08.TKB63a

into
4   2175587  08

using

(( $ref, $numt, $id, $ext ) = $PATH[ 7 ] ) =~
/\w-(\d{7})-(\d{2}).[\w+|\d+]/;

What am I doing wring?

Thanks,

Jerry