my $snap = "a$/";
warn unpack 'H*', $snap;
warn unpack 'H*', chomp ( my $crackle = $snap );
warn unpack 'H*', $crackle;
warn unpack 'H*', $/;
__END__
610a at - line 2.
31 at - line 3.
61 at - line 4.
0a at - line 5.
[download]