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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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