$ perl -
use Data::Dump qw/ dd /;
while(<DATA>){
  dd($_);
}
__DATA__
a
"a\n"
asdf^Z
"asdf\32\n"
^Z