(my $foo = <<EOC) =~ s/^\s+//gm;
   echo hi there
   echo lo there
EOC
print $foo;