my $txt=$testtext;
identifylinks (\$txt,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
print "<pre>$txt</pre>";

my $txt_topeg=$testtext;
identifylinks_topeg (\$txt_topeg,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
print "<pre>$txt_topeg</pre>";