#!/usr/local/bin/perl -w

use LWP::Simple;

#program starts
$totalAdress = "http://www.foobar.com/htmlschuff/data.html";

$content = get($totalAdress) || die "doesn't seem to be a valid adress: $!";

#Location
$start = "<p><b>Location:</b>\n";
$end = "<p>";
if ($content =~ /\b$start\b(.*?)\b$end\b/) {
    $Location = $1;
    print $Location;
}
print "\ndone\n";

##</code><code>##

$./thecode.pl

done
$