How about this:
### Code:
(my $text =<<' foo') =~ s/^\s+://mg;
:<h1>Hello, World!</h1>
: <p><a href="http://foo.org/">I</a> am an indented link.</p>
: <p>So am <a href="http://bar.org/">I</a>.</p>
foo
print $text;
### Output:
<h1>Hello, World!</h1>
<p><a href="http://foo.org/">I</a> am an indented link.</p>
<p>So am <a href="http://bar.org/">I</a>.</p>
(darren)
> The only thing you _MUST_ have in column 1 is the "end_o_doc" indicating
> the end of the text.
>
> Problems with this???
> Ron
>
>
> "Alexander Farber (EED)" wrote:
> >
> > Perrin Harkins wrote:
> > > I know it's not the point, but I'd consider it poor style if I saw someone
> > > using anything other than a <<HERE doc for the job you're testing.
> >
> > Why? With <<HERE you can't indent your code:
> >
> > my @text = (
> > "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">\n",
> > "<HTML>\n",
> > " <HEAD>\n",
> > " <TITLE>\n",
> > " Test page\n",
--
Eschew obfuscation.
