#!/usr/bin/perl
use warnings;
use strict;

sub divide {
    return 1 / 0;
}

my $x;

eval { $x = divide(); }; 

if ($@ =~ /Illegal division/){

    print "Don't divide by zero, dummy!\n";

    # die with called function's error if required

    die $@;
}

print "$x\n";