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