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 ('')