#!/usr/bin/env perl -l

use strict;
use warnings;
use utf8;
use open OUT => ':utf8', ':std';

my @strings = (
    'A B C', 'D E', 'F ', 'G', 'H  ', 'I   ',
    "\N{MERCURY} \N{FEMALE SIGN} \N{EARTH}", "\N{MALE SIGN} \N{JUPITER}",
    "\N{SATURN} ", "\N{URANUS}", "\N{NEPTUNE}  ", "\N{PLUTO}   ",
);

for (@strings) {
    next if substr($_, -1, 1) eq ' ' or rindex($_, ' ', length() - 2) == -1;
    print;
}