Select Code to Download

use strict;
open FILE, "</path/to/inputfile" or die "Blerch: $!\n";
...
shift @lines;
pop @lines;
# @lines now contains the file contents without the first and last lin
+es.

$line=~s/^#//;

$line=~s/^(.)/#$1/;