dbb · July 13, 2011 16:19
diff --git a/gistfile1.pl b/gistfile1.pl
 #!/usr/bin/perl
 use 5.010;
 use strict;
 use warnings;

 my $pattern = '<!-- placeholder -->';

 my $text = << "EOF";
 <html>
 <head>
 <title>foo</title>
 </head>
 <body>
 <p>Some text.</p>
 <!-- placeholder -->
 <p>More text</p>
 </body>
 </html>
 EOF


 say "# Before #############################\n$text";
 my $replacement = '<a href="foo">bar</a>';

 my @lines = split "\n", $text;

 say "# After #############################\n";
 for ( @lines ) {
        s/$pattern/${replacement}\n$pattern/g;
        say;
 }
	#!/usr/bin/perl
	use 5.010;
	use strict;
	use warnings;

	my $pattern = '<!-- placeholder -->';

	my $text = << "EOF";
	<html>
	<head>
	<title>foo</title>
	</head>
	<body>
	<p>Some text.</p>
	<!-- placeholder -->
	<p>More text</p>
	</body>
	</html>
	EOF


	say "# Before #############################\n$text";
	my $replacement = '<a href="foo">bar</a>';

	my @lines = split "\n", $text;

	say "# After #############################\n";
	for ( @lines ) {
	s/$pattern/${replacement}\n$pattern/g;
	say;
	}