#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);

my $s = shift;
say join " ", map eval "$s =~ tr/$_//", qw/A C G T/;