Select Code to Download

Select or download this

print "<html>
<body>
...
</body>
</html>
";

Select or download this

print "<h1 align=\"right\">Hello World</h1>";

Select or download this

print '<h1 align="right">Hello World</h1>';

Select or download this

print '<html>
<body>
...
</body>
</html>
';

Select or download this

my $string = 'Hello World';
print '<h1 align="right">' . $string . '</h1>' . "\n";

Select or download this

my $string = 'Hello World';
print "<h1 align=\"right\">$string</h1>\n";

Select or download this

print qq(<h1 align="right">$string</h1>\n);

Select or download this

print qq(<h1 align="right">$string</h1>\n);
print qq{<h1 align="right">$string</h1>\n};
...

# have to escape the delimiter:
print qq/<h1 align="right">$string<\/h1>\n/;

Select or download this

my $string = 'Hello World';
print <<HTML;
...
</body>
</html>
HTML