safe divide by zero

divide.pl

#!/usr/bin/perl

sub divide {
    ($a, $b) = @_;
    $c = eval { $a / $b };
    $@ =~ m/Illegal division by zero/ && rand() > .5 ? ($b = 1) : ($b = -1);
    $@ && ($c = $a / $b);
    return $c;
}

print divide(1,4), "\n";
print divide(1,0), "\n";