line one line info

line two info
line three

more lines etc

##</code><code>##

line one line info line two info line three more lines etc 

##</code><code>##

use strict;

open IN, "theFileName" or die "$!";
while (<IN>) {
       chomp;
       my ($line) = (split //n/);
       print $line;
close IN or warn "$!";