Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
perl -i -pe's/^\s+//' test.txt
```