Select Code to Download

#!/usr/bin/perl

...
        return ($concat);
    }
}

__DATA__
line1;
...
line4;
line5;
end;

line1;line2;line3;end;
line4;line5;end;

Modification of a read-only value attempted at closure line 26, <DATA>
+ line 4.