>perl -e "my %f=(chr=>sub{chr(shift)});  print $f{$ARGV[0]}->($ARGV[1])" chr 35
#
>perl -e "my %f=(chr=>sub{chr(shift)});  print $f{$ARGV[0]}->($ARGV[1])" chr 36
$

##</code><code>##

>perl -e "print eval qq|@ARGV|" sqrt 2
1.4142135623731
>perl -e "print eval qq|@ARGV|" chr 128
Ç