Here document
my $color = 'green';
say qq :to 'END';
some line
color: $color
another line
ENDOutput:
some line
color: green
another linemy $contrived_example = 'Dylan';
sub freewheelin() {
print q :to 'QUOTE', '-- ', qq :to 'AUTHOR';
I'll let you be in my dream,
if I can be in yours.
QUOTE
Bob $contrived_example
AUTHOR
}
freewheelin;Output:
Output:
Last updated