Select Code to Download

# sub via_rx { $_[0] =~ /.*\b(?<=[ATCG])/s; $+[0] }
sub via_rx { $_[0] =~ /.*\w\b/s; $+[0] }

sub via_tr { 1+rindex(($_[0] =~ tr/ATCG/X/r), 'X') }