#!/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 $_);}';
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |