use warnings;
use strict;
use Test::More;

my $bar = "\x04\x4d";
my $foo = "044d";
my $string;

while ($foo =~ m/(..)/g) {
        $string .= chr(hex($1));
}

is( $bar, $string, '$bar eq $string' );
done_testing();

print "string: $string\n";
print "bar: $bar\n";

__END__

ok 1 - $bar eq $string
1..1
string: M
bar: M