ayaz$ cat /tmp/temp/wtf.pl te
#!/usr/bin/perl
#

use warnings;

&main;

sub main {
        use Data::Translate;
        my $data = new Translate;

        open (FILE, "x.txt") or die "$0:\n";
        my $hex_string = <FILE>;
        close (FILE);

        $hex_string =~ s/%//g;
        my @fucker = split / /, $hex_string;
        print @fucker;

        my ($s, @ha) = $data->h2a(@fucker);
        print(join(' ', @ha), "\n");

        return;
}