if (1) {
    print <<"    EOT" =~ s/^(\s*)//r =~ s/^$1//gmr;
    Here is some
    text which needs
        to be flush to the
        left margin
    and has indented parts
    EOT
}