require 5.6.1; # maybe less, not sure ... use re 'eval'; ... On Fri, 25 May 2001, Kingpin wrote: > > $re = q{^.*(??{$&eq'^.*(??{'.substr($&,7,46).'})\z'?'':'(?!)'})\z}; > > $re =~ $re; > > Your specification still needs refining. Here's what I get: > > Sequence (??...) not recognized > > -- o ~ ~ ~ ~ ~ ~ o / Aaron J Mackey \ \ Dr. Pearson Laboratory / \ University of Virginia \ / (804) 924-2821 \ \ amackey@virginia.edu / o ~ ~ ~ ~ ~ ~ o ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe