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