use strict;
use warnings;

use 5.010;

my $prompt = q{Plz enter file: };

print $prompt;
my $file1 = <STDIN>;
say for map sprintf( q{%#04x - >%s<}, ord, $_ ), split m{}, $file1;

print $prompt;
chomp( my $file2 = <STDIN> );
say for map sprintf( q{%#04x - >%s<}, ord, $_ ), split m{}, $file2;