$content = get($url);
print $content;

my ($dat) = $content =~  (/Page last updated: <BR>(.*$)/i);
print "$1\n";
print $dat;