#!/usr/bin/perl -p

chomp;
$a = $_;
@a = split //, $a;
$a = join '', map " $_", map {ord($_) < 32 || ord($_) > 126 ? '.' : $_} @a;
$a .= "\n" . join '', map sprintf("%02x", ord($_)), @a;
$_ = "$a\n";