Select Code to Download

my @array2 =split "\n", @array;
print $array2[1];

use strict;
use warnings;
...
        return $string;
    }
}

use strict;
use warnings;
...
    local $, = "\t";
    print @newarray, "\n";
}

use strict;
use warnings;
...
    local $, = "\t";
    print @newarray, "\n";
}