Select Code to Download

use Benchmark qw( cmpthese );
our $KEY="df";
...
   caret => '/^ \s* $KEY /mx',
   cr => '/\n \s* $KEY /mx',
});