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;

##</code><code>##

$ ./spw822114
Plz enter file: xyz.c
0x78 - >x<
0x79 - >y<
0x7a - >z<
0x2e - >.<
0x63 - >c<
0x0a - >
<
Plz enter file: xyz.c
0x78 - >x<
0x79 - >y<
0x7a - >z<
0x2e - >.<
0x63 - >c<
$