use Data::Dumper;

warn Dumper(
    {
        a => "a" =~ m/b/,
        b => 'asdf'
    }
);

##</code><code>##

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

##</code><code>##

use Data::Dumper;

print Dumper( "a" =~ m/a/ );  # outputs 1
print Dumper( "a" =~ m/b/ );  # No Output For This Line!
print Dumper( "a" eq "a" );   # outputs 1
print Dumper( "a" eq "b" );   # outputs an empty string ('')
print Dumper( "a" !~ m/a/ );  # outputs an empty string ('')
print Dumper( "a" !~ m/b/ );  # outputs 1

my $a = "a" =~ m/a/;
print Dumper( $a );           # outputs 1

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