I’m surprised that this is the first time in Perl that I’ve bothered to use the posix character class [:alnum:]. Check this nuttiness out:

($::port_name, $::first_port, $::last_port) = 
  $::port_range =~ 
    /([[:alnum:]]+[^[:alnum:]])(\d+)-[[:alnum:]]+[^[:alnum:]](\d+)/;

Yeah…it’s better with coffee.