$find_net = '123.123.45.4/30';
$some_ip  = '123.123.45.5';
my ($net_ip, $net_mask) = split(/\//, $find_net);
my ($ip1, $ip2, $ip3, $ip4) = split(/\./, $find_net);
my $net_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);
my $net_mask_raw = pack ('B32', (1 x $net_mask), (1 x (32 - $net_mask)));
# $some_ip_raw  вычисляем по аналогии с $net_ip_raw
($ip1, $ip2, $ip3, $ip4) = split(/\./, $some_ip);
my $some_ip_raw = pack ('CCCC', $ip1, $ip2, $ip3, $ip4);

if (($some_ip_raw & $net_mask_raw) eq $net_ip_raw){
  # $some_ip_raw входит в подсеть $find_net
}
При указании маски вида $find_net = '123.123.45.4/255.255.255.224'
вместо pack можно преобразовать IP и маску в число по алгоритму:
$net_ip_raw = ($ip1<<24) + ($ip2<<16) + ($ip3<<8) + $ip4;
Тоже проделать с маской и проверяемым IP, вхождение в подсеть будет проверяться условием:
if ($some_ip_raw & $net_mask_raw) == $net_ip_raw){
  # $some_ip_raw входит в подсеть $find_net
}
Другой вариант:
use Socket;
sub isinsubnet {
    my ($subnethost, $subnetmask, $testhost) = @_;
    $subnethost = inet_aton($subnethost);
    $subnetmask = inet_aton($subnetmask);
    $testhost = inet_aton($testhost);
    return (($subnethost & $subnetmask) eq ($testhost & $subnetmask));
}