Select Code to Download

my $textarea = $q->param('textarea');
my $textarea =~ s/\r//g;  # get rid of any \r characters
my @array = split(/\n/,$textarea);