#!/usr/bin/perl -w
use strict;
use fatal;
use File::Copy;

open( FH, "<test.txt" );
open( FH2, ">test.txt.tmp" );

while ( <FH> )
{
  s/^(\s+)//g;
  print FH2 $_;
}
close FH;
close FH2;
move("test.txt.tmp", "test.txt");