Вот, простая и дубовая конструкция, лишенная красоты и лаконичности присущей перлу, но зато очевидная на 100%

while($a=~m{=(['"])mailto:(.+?)\1.*?>}ig)
{
	push(@m,$2) if $2;
}

это регулярное выражение ищет в тексте конструкцию вида «mailto:blablabla», где кавычки могут быть как одинарные так и двойные, первые скобки нужны для того чтобы найти и определить в переменную $1 тип кавычек в которых находится искомое, ну а вторые нужны чтобы в переменную $2 положить сам почтовый адрес.

более краткая запись:

push(@m,$2) while($a=~m{=(['"])mailto:(.+?)\1.*?>}ig);