#!/usr/bin/perl -w
# save as dna-rna.pl
# playing around with sequences

print "Enter Sequence: ";
$DNA=<STDIN>; # ask for a seq
chomp $DNA; # remove end of line character
$DNA=uc $DNA; # make uppercase
print "DNA Sequence:\n$DNA\n";

$RNA = $DNA;
$RNA=~s/T/U/g;
print "RNA Sequence:\n$RNA\n";

$RevCompl=reverse $RNA;
$RevCompl=~tr/ACUG/UGAC/;
print "Reverse Complement:\n$RevCompl\n";