$_ = 'fooxbarbar';

# Not greedy - why not?
if(/(foo)((?!bar).){1,5}bar/){
  print "1 Matched:$1 $2\n";
}
else{
  print "1 Not Matched\n";
}

##</code><code>##

$_ = 'fooxbarbar';

# Not greedy - why not?
if(/(foo)(((?!bar).){1,5})bar/){
  print "1 Matched:$1 $2\n";
}
else{
  print "1 Not Matched\n";
}

##</code><code>##

{1,5}