Predpochitam definiciqta ot samite creaters:

#~ UNIX style
perldoc perl | perl -pe '/^DESC/ .. m|\Q...\E| and print while <>' -
#~ dos style
perldoc perl | perl -pe "/^DESC/ .. m|\Q...\E| and print while <>" -

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~