Select Code to Download

if ( $line =~ /<(\w(?:[^ \/>]+))(?:(?:(?:\s+)([^=>]+)\s*=\s*("|')((??{
+"[^$3]*"}))\3))\s*\/>/) {
   print ("1=" . $1. "\n2=" . $2 . "\n3=" . $3 . "\n4=" . $4 . "\n5=" 
+. $5 . "\n");
}