Love it, but issue with hyphens in hostnames

Love the script. There’s an issue with hostnames that have a hyphen in them however, so the likes of myserver.my-domain.com:443 causes a failure of the script.

I’m not familiar with Perl so could not work out exactly why, but the following REGEX drops everything before the hypen in the hostname (so it would try to check the expiry of domain.com:443 in my example above) –
if ($cmd_options{H} =~ /([w+.*]+:d+)/){
$hostname_port_number=$1;

Changing this to the below solved it for me, but I’m not sure if the author was trying to use the REGEX to clean up the hostname in some way so this fix may not be ideal, but it does work –
if ($cmd_options{H} =~ /([w+.*]+:d+)/){
$hostname_port_number=$cmd_options{H};