my $line= "onmouseout=\"cs()\">Otani <b>Restaurant</b> &amp; <b>Sushi</b> Bar: <b>Columbus</b> <b>Ohio</b> DiningGuide \
<b>Restaurant</b>...</a>csdkjfhasdkjghlkjhdfgkj";
##</code><code>##

$line =~ m@\Qonmouseout="cs()">(.*)</a>\E@;