Transkripsi DNA ke RNA

#!/usr/bin/perl -w
# Transkripsi DNA ke RNA
$DNA = ‘ACGGGAGGACGGGAAAATTACTACGGCATTAGC’;
# Print DNA ke layar
print “Ini adalah DNA awal:\n\n”;
print “$DNA\n\n”;
# Transkripsi DNA ke RNA dengan mensubtitusi seluruh ‘T’ menjadi ‘U’
$RNA = $DNA;
$RNA =~ s/T/U/g;
# Print RNA ke layar
print “Ini adalah hasil transkripsi DNA ke RNA:\n\n”;
print “$RNA\n”;
exit;

Ini adalah outputnya :

Ini adalah DNA awal:
ACGGGAGGACGGGAAAATTACTACGGCATTAGC
Ini adalah hasil transkripsi DNA ke RNA:
ACGGGAGGACGGGAAAAUUACUACGGCAUUAGC