Help for this page

Select Code to Download

Select or download this

while (my $text = <DATA>) {

   if ($text =~ /['"](.+?)['"]/ ){
...
       print "Out of luck \n";
     }
}