perl -MNet::Netmask
my $b = new2 Net::Netmask( '218.0.0.0 - 221.255.255.255' );
if ( $b->match('216.23.234.32') ) { print "Match!\n"; }