Re^2: The most annoying common way to get a string literal in Perl is...

It can. Did you try:

if($anything){
  print <<"  Ende" # =~s/  \n/\n/g #could be appended
    Text
  Ende
}
[download]

Comment on Re^2: The most annoying common way to get a string literal in Perl is... Download Code

Replies are listed 'Best First'.
Thinko! by Anonymous Monk on Jul 03, 2004 at 07:57 UTC
Sorry, sleep deprivation. The regex must be `m" (.*?)$"msg;`.	[reply] [d/l]
Re: Thinko! by december (Pilgrim) on Jul 04, 2004 at 22:36 UTC
Hey, thanks, I didn't know you could do such a direct regex on a here-document. Always something new to learn...	[reply]

In Section Past Polls