#!/usr/bin/perl -w
#use strict;

    print <<EOC=~ s/^\s+//gm;
    echo hi there
    echo lo there
EOC