isURL.pl

#!/usr/local/bin/perl

$ldh = '[-0-9a-zA-Z]';               # let-dig-hyp
$let = '[a-zA-Z]';                   # letter
$unres = q#[-0-9a-zA-Z$_.+!*'(),^]#; # unreserved

$comment =~ m#https?://($ldh+\.)+$let+\.?(\:\d{1,5})?(/$unres*)*(\#$unres+)?#;