Nkuipers wrote at Mon, 30 Sep 2002 19:24:18 +0200: > This idea is even simpler though not purely regex: > > $yourstring =~ s/\..*//; > @result = split /-/, $yourstring;
Or still simpler: my ( $ref, $numt, $id, $ext ) = split /\W/, $string, 3; Greetings, Janek -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
