Help for this page
open targetfile, "source.ada" or die "Can't open: $!";
open targetfile, ">", "source.ada" or die "Can't open: $!";
print targetfile tr/ACCEPT/GET/;