Select Code to Download

my $data = "buy 1/23/01 100 12.625 50 25.25 \n
 buy 09/1/01 100 12.625 50 25.25 \n
 buy 10/23/01 100 12.625 50 25.25 \n
 buy 10/25/01 100 12.625 50 25.25 \n";

my @data = split /\n\n/, $data;

...
    $data =~ s/\s+$//;
    return $data;
}