>perl selective_trans_1.pl
the core of the coregents encores scored fourscore score of
the CENTER of the coregents encores scored fourscore TWENTY of

scores when Johann travelled to Johannesburg
scores when JOHN TRAVELED to Johannesburg

for a score of cores hasn't a centre encoregent
for a TWENTY of cores HAS NOT a CENTER encoregent