Select Code to Download

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

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