print "Enter a fragment of a web address to see if it is a match for the correct web site: ";
   chomp (my $fragment = <STDIN>);
   print "\n";

   if ($fragment =~ m{http:// (S+) } ) {
      print "That is a good match for the URL\n";
   } else {
      print "THat is not a good a match\n";
   }