>perl selective_trans_1.pl
a score and twoscore of unscored scorer won't unscore scored scores
a TWENTY and twoscore of unscored scorer won't unscore scored scores

at the core of the encore that was scored and cored
at the CENTER of the encore that was scored and cored

for many scores of encores Johann travelled to Johannesburg
for many scores of encores JOHN TRAVELED to Johannesburg

for a score of cores hasn't a stercorean centre
for a TWENTY of CENTERS HAS NOT a sterCENTERan CENTER