package RNA;
use strict;
use warnings;
use Exporter qw<import>;
our @EXPORT_OK = qw<to_rna>;

sub to_rna {
  my ($dna) = @_;
  (my $rna = $dna) =~ tr/GCTA/CGAU/;
  return $rna;
}

1;