use strict;

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

foreach my $line (split /(?<!:)\n/, $app_text) {
  $line =~ s/\n//g;   # Eliminate internal "\n"s
  print "$line\n";

}


##</code><code>##

one:partridge
two:turtle doves
three:french hens