#!/usr/bin/perl

use strict;

my $app_text = "one:partridge\ntwo:\nturtle doves\nthree:french hens\n";

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

##</code><code>##

one:partridge
two:
turtle doves
three:french hens