First try, thought I'd start straightforward and work my way up...
#!/usr/bin/perl
use strict;
my $J='chr';
my $A=sub{print eval"$J $_[0]"};
my $P="074117115116032097110111116104101114032080101114108032104097099
+107101114010";
my $H=eval'for ($P=~/([\d ]{3})/g) {$A->(int $_);}';