perl -p -e 's/^\s+//' < file1 > file2

##</code><code>##

while(<>) {
   # whatever is in -e
   print $_;
}