if ($record =~ /<(.+)>([^<>]{58})<\/\1>/g) {print "$2\n";}