#!usr/bin/perl -w
use strict;

print "Introdueix una cadena de nucleòtids:\n";
my $DNA = <STDIN>;
chomp($DNA);
print "La teua cadena és:\n";
print $DNA."\n\n";
my $revcom=reverse $DNA;
$revcom =~ tr/ATGCatgc/TACGtacg/;
chomp($revcom);
print "La reversa complementària és:\n";
print $revcom."\n";
