Select Code to Download

#!/usr/bin/perl -w 
use strict; 
...
    Lazy    => '$myvar =~ /"(.*?)"/', 
    Negated => '$myvar =~ /"[^"]*"/' 
});

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