Select Code to Download

my $line;
while ( <DATA> ) {
...
   $line = $1;
   print "$line\n";
}

while ( <DATA> ) {
   chomp;
   my $line = $_;
   # ...

while ( <DATA> ) {
   chomp;
   /\s+<\w+\/?>(.*)<\/\w+>/ or next;
   print $1, "\n";
}

while ( my $line=<DATA> ) {
   chomp $line;
   $line =~ /\s+<\w+\/?>(.*)<\/\w+>/ or next;
   print $1, "\n";
}