> $re = q{^.*(??{$&eq'^.*(??{'.substr($&,7,46).'})\z'?'':'(?!)'})\z}; > $re =~ $re; Your specification still needs refining. Here's what I get: Sequence (??...) not recognized -- - - Martin "Kingpin" Thurn mthurn@tasc.com Research Software Engineer (703) 793-3700 x2651 The Information Refinery http://tir.tasc.com TASC, Inc. http://www.tasc.com How you get so big, eating food of this kind? -- Yoda, The Empire Strikes Back ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe