$doc=~ m/<a class="listentry" target=(.*)>(.*)<\/a>//gi;