Select Code to Download

my $data = <<"EOF";
I really like
...
print "Second try:\n";
$data =~ s/^/> /mg;
print "$data\n";

First try:
> I really like
...
> blue raspberry
> and orange marmalade
> are great