RosettaCodeData/Task/Here-document/Perl-6/here-document-1.pl6

my $color = 'green';
say qq :to 'END';
    some line
    color: $color
    another line
    END
langs a-z 2013-04-10 22:43:41 -07:00			`my $color = 'green';`
June 2018 Update 2018-06-22 20:57:24 +00:00			`say qq :to 'END';`
2016 Update 2016-12-05 22:15:40 +01:00			`some line`
			`color: $color`
			`another line`
			`END`