»» vor jeder zeile

[Michael W.]

my $string = <<ENDE;
Dies ist ein String
mit
Zeilenumbrüchen.

Blah
ENDE

$string =~ s/^/»» /gm;
print $string;
############
ergibt:

Dies ist ein String
mit
Zeilenumbrüchen.

Blah

wie jetzt wenn mein text in $message liegt, wie könnte jetzt das script aussehen?

$message = "Hallo,\nDas ist ein Text";
$message =~ s/^/» /gm;

würde ausgeben:

» Hallo,
» Das ist ein text

?