use warnings;
use strict;

my $analysis = <<'END_INPUT';
#Result& The percent of births as healthy births has increased in
recent years in response to the Healthy Births initiative.:#Approach&
The prenatal, birthing, and postpartum parts of the birth process
have been changed substantially. We will have a brighter day to look
forward to.:#Prospect& If the same old pace of this change continues,
it will be a wonderful day.
END_INPUT

$analysis =~ tr/#/?/;
$analysis =~ tr/&/%/;
#$analysis =~ tr/|!#&/<>?%/;

print $analysis;

__END__

?Result% The percent of births as healthy births has increased in
recent years in response to the Healthy Births initiative.:?Approach%
The prenatal, birthing, and postpartum parts of the birth process
have been changed substantially. We will have a brighter day to look
forward to.:?Prospect% If the same old pace of this change continues,
it will be a wonderful day.