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

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

while ( <FH> )
{
  s/^(\s+)//g;
  print FH2 $_;
}

close FH;
close FH2;