That looks very complicated. Simpler:

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

(Works from your original input)

---

Update: By the way, the following is wasteful:

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

It loads the entire file into memory for nothing. Use the following instead:

while (my $line = <DATA>) {
[download]