$ perl -e 'chomp($orig = <STDIN>); ($tmp = $orig) =~ s/[^A-Z]//g; print "Copy: $tmp\nOriginal: $orig\n";'
WeDfT
Copy: WDT
Original: WeDfT