Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @arr = split /\n/;

print map { "|$_|\n" } @arr;

|This is|
|a string|
...
|and|
||
|blank lines|