#!/usr/bin/perl

$file="test";
$cmd="perl -pi -e s\'\/^\\s+\/\/'g $file";
print "$cmd\n";
system($cmd);

##</code><code>##

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

}