$foo = open(FH, "filename.txt") || die $!;
# not the same as
$foo = open(FH, "filename.txt") or die $!;


##</code><code>##

local $_ = "0A72656B636148206C72655020726568746F6E41207473754A";
while(s/..$//) { print chr(hex($&)) }