use Tie::File;
tie @file, 'Tie::File', 'test.txt';
s/^\s+// for @file;

##</code><code>##

perl -i -pe's/^\s+//' test.txt