open targetfile, "source.ada" or die "Can't open: $!";

##</code><code>##

open targetfile, ">", "source.ada" or die "Can't open: $!";

##</code><code>##

print targetfile tr/ACCEPT/GET/;