Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my @ina = /<a(.*?)<\/a/isg;
print "Found unterminated <A> tag containing: '$_'" for grep { /<a/ } 
+@ina;

<a href="ok" name="<a> go on">this is ok</a>