indented heredoc example

heredoc.pl

#############################################
#!/usr/intel/bin/perl

my $line1 = <<"DONEDONE";
yuval yuval yuval
DONEDONE

print $line1;

sub func {
    my $line2 = <<"DONEDONE";
    yuval yuval yuval
DONEDONE
}

&func();
#############################################