Help for this page

Select Code to Download


  1. or download this
        my ($m) = reverse($myvar) =~ /"\?(.*?)"/s;
        $m = reverse $m;
        print "matched <$m>\n";
    
  2. or download this
        my ($m) = reverse($myvar) =~ /"\?(.*?)"(?!\\)/s;