@robots =(qr/^64\.68/,qr/^64\.242\.88\./,...);

[...]
if ($ip =~ $robot) {
[...]