push @list, $a while($a = /(?:\Ars://([-\w]+)|\.([-\w]+))/g);