Select Code to Download

#!/usr/bin/perl

...
foreach my $line (split /\n/, $app_text) {
    print "$line\n";
}

one:partridge
two:
turtle doves
three:french hens