Select Code to Download

#!/usr/bin/perl
while($line = <DATA>){
...
<helloe>How r u <a> www.google.com</a>
<Hi>How r u </hi>