open(DATA, "$file");
while(<DATA>){
chomp;
$line=$_;
$line=~ s/^\s+//g;
print "$line\n";

}