Спасибо, некогда было зайти сюда, сделал вот как сам, вроде работает
#!/usr/bin/perl -W
my $test = <<"EOF";
109.105.128.0 - 109.105.159.255
109.105.128.0 - 109.105.143.255
109.105.144.0 - 109.105.145.255
109.105.160.0 - 109.105.191.255
109.105.164.0 - 109.105.167.255
109.106.128.0 - 109.106.159.255
109.106.128.0 - 109.106.135.255
109.106.136.0 - 109.106.159.255
109.106.192.0 - 109.106.223.255
109.106.192.0 - 109.106.199.255
109.106.200.0 - 109.106.203.255
109.106.204.0 - 109.106.205.255
109.106.206.0 - 109.106.206.127
EOF
open (F, ">> block_3.txt");
$test =~ s/\.\d{1,2} -/.100 -/g;
print(F "$test\n");
close (F);