At 11:03 pm +0000 18/1/04, John Delacour wrote:
Hey, wait a minute -- maybe I was :-) I get your problem if I run it in MacPerl with 5.6.1...
It works in 5.6.1 if I quote the matches :
$_ = "UA-UI1,3,4,6"; / (\w\w)-(\w\w)(\d.+) /x; for ("$1".."$2" ) {for $n ( split /[^\d*]/, $3 ) { print "$_$n "}}