in reply to Re: '+' to +
in thread '+' to +

Like I did it in Re: Re: How to do that with eval ?: 

my %arith = map {
    $_ => eval sprintf 'sub { $_[0] %s $_[1] }', $_
} qw[ + - * / ];

[download]

ihb

See perltoc if you don't know which perldoc to read!

In Section Seekers of Perl Wisdom