#!/usr/bin/perl
use strict;
use warnings;
open(FH, "<", "test.txt");
open(FH2, ">", "test2.txt" );
while(<FH>) {
  s/^(\s+)//g;
  print FH2 $_;
}
close FH2;
close FH;