foreach my $datum (@data) {
  $datum = (extract_tagged($datum, '<a href="http://', '">'))[4];
}