#!/usr/bin/perl -w
use strict;

my @getdata;
while(<DATA>){
	chomp;
	if ( /href=http/ ){
		@getdata=split/\w+\s+|<|>|"|href|=/;
                    
	}
}
print "$getdata[9]";


__DATA__
Go to the BBC's website <a href=http://www.bbc.co.uk">BBC</a> or you 
can visit the inland revenues pages at
<a href="http://www.inlandrevenue.com">Inland Revenue</a>  which will 
give you the information you need