Select Code to Download

my @file = <DATA>;
foreach (@file) {
  print $_,".";
...
  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

  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
.