#Read only 1 - 72 columns data $Line =~ /.{72}/; $Line = $&; $Line = $Line."\n";