fixes use of the script with Perl 5.8. This should match all characters of current ports. If somebody finds some new characters to use in a port name the matching regex will need to be updated.