#!/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 $_);}';
[download]