http://www.perlmonks.org?node_id=593820


in reply to string to expression

check overload
#!perl use strict; use warnings; my $num = new SomeThing 57; $b=5+$num; print "b is $b \n"; my $minus = $num - 10; print "minus is $minus \n"; package SomeThing; sub new { my $p = shift; bless [@_], $p } use overload '+' => \&myadd, '-' => \&mysub; sub myadd { my $self = shift; my $var = shift; return ($var + $self->[0]); } sub mysub { my $self = shift; my $var = shift; return ( $self->[0] - $var); } 1;