{
  local $^I = ".bak";
  local *ARGV;
  @ARGV = "test.txt";
  while (<>) {
    s/^\s+//;
    print;
  }
}
[download]

--
my $chainsaw = 'Perl';