use Regexp::Common qw /URI/;
unless($link =~ /$RE{URI}{HTTP}/) { }