foreach my $key ( sort keys %replacements ) {
            s/\b$key\b/$replacements{$key}/g;
            print "$key $replacements{$key}\n";
            }