This idea is even simpler though not purely regex:
$yourstring =~ s/\..*//;
@result = split /-/, $yourstring;
>===== Original Message From "Mark Anderson" <[EMAIL PROTECTED]> =====
>-----Original Question-----
>
>D-2165033-10.TKB61a => D 2165033 10
>
>and
>
>4-2175587-08.TKB63a => 4 2175587 08
>
>using
>
>(( $ref, $numt, $id, $ext ) = $PATH[ 7 ] ) =~
>/\w-(\d{7})-(\d{2}).[\w+|\d+]/;
>
>What am I doing wring?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
