#!/usr/bin/perl -w 
use strict; 

my $myvar = 'Tom said "hi," and Sally replied "get lost, Ovid is more my style."';

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

##</code><code>##

Use of uninitialized value at (eval 2) line 1.