Select Code to Download

use Data::Dumper;

...
        b => 'asdf'
    }
);

$VAR1 = {
    'asdf' => undef,
    'a' => 'b'
};

use Data::Dumper;

...

my $b = "a" =~ m/b/;
print Dumper( $b );           # outputs an empty string ('')