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

##</code><code>##

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