Select Code to Download

use vars qw|$myvar|;
$myvar = "...";

our $myvar = "...";

timethese(100000, { 
   Greedy  => sub { $myvar =~ /"(.*)"/ }, 
   Lazy    => sub { $myvar =~ /"(.*?)"/ }, 
   Negated => sub { $myvar =~ /"[^"]*"/ } 
});