Select Code to Download

Use qr/.../ to use a regular expression in a query .....
my $cursor = $collection->query({"name" => qr/[Jj]oh?n/});

{"name" => '/.*uba$/i'}

{"name" => 'qr/.*uba$/i'}

if(index($_[0],"qr/") >= 0){ 
                $_[0] =~s/qr(.*?)(i?)$/$1/s;
                print $fh Dumper($_[0]);
...
                $_[0] =$re;
                print $fh Dumper($_[0]);
            }

$VAR1 = '/.*uba$/';
$VAR1 = undef;