#!perl -w

use strict;

my $buf = "Look, Ma:\nfoo\tbar\tsee those tabs?\nFOO   BAR  look here - no tabs, just spaces.\n";
print "$buf\n";

use Data::HexDump;
print "HexDump:\n", HexDump "$buf";

use Data::Hexdumper;
print "Hexdumper:\n", Data::Hexdumper::Hexdump(data => $buf);