1 2 3 4 5 6
#!/usr/bin/env perl use strict; use warnings; use 5.016; say scalar reverse <> =~ tr/ACGT/TGCA/r;