my @file = <DATA>;
foreach (@file) {
  print $_,".";
}
__DATA__
  2 spaces at the front and 2 spaces at the end
    one tab at the front and one tab at the end    
no spaces at the front or end but 5 spaces before the second     5

##</code><code>##

  2 spaces at the front and 2 spaces at the end
.    one tab at the front and one tab at the end    
.no spaces at the front or end but 5 spaces before the second     5
.