s/regex/make_link($1)/eg;
sub make_link {
  my $url = $_[0];
  $url =~ s/\s+//g;
  qq`<A HREF="$url">$url</A>`;
}