use CGI qw/:standard/;
use LWP::Simple;

print header,start_html('My Dictionary'),start_form,"Enter a word:",textfield('word'),p,submit,end_form,hr;

$engine = "http://www.dictionary.com/cgi-bin/dict.pl?term=";
$word 	= param('word');
$url 	= "$engine$word"; 
$string = get($url);
$start 	= '<!-- resultItemStart -->';
$end 	= '<!-- resultItemEnd -->';
$string = m/($start)(*)($end)/;

print "$2";