Select Code to Download

use warnings;
use strict;
...
';

print $string;

>perl t_sq_newlines_1.pl
this
...
has
five
newlines