こうしてみた、強まるかな?

# IP アドレスから数字を取得(･∀･)ﾆﾔﾆﾔ 65025 通り
#my $IP_number = eval { $ENV{REMOTE_ADDR} =~ s/^(\d+)\.(\d+)/return $1 * $2/e };
my $IP_number = eval { $ENV{REMOTE_ADDR} =~ s/^(\d+)\.(\d+)/return $2/e };