Select Code to Download

use warnings;
use strict;
...
the core of the coregents encores scored fourscore score of
scores when Johann travelled to Johannesburg
for a score of cores hasn't a centre encoregent

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

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

use warnings;
use strict;
...
at the core of the encore that was scored and cored
for many scores of encores Johann travelled to Johannesburg
for a score of cores hasn't a stercorean centre

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

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