while (<>) {
   print("/") if $. != 1;
   print(/=(.*)/);
}
print("\n");

##</code><code>##

my @line = <DATA>;
for my $line (@line) {

##</code><code>##

while (my $line = <DATA>) {