No, don't try that.

$ perl
sub function { return "warn 'broken'" }

my $a = eval(function) / 4;
^D
broken at (eval 1) line 1.
[download]

Also, don't use my with $a or $b.