#!/usr/bin/perl -w

# Ejercicio 3. Concatenar DNA

# 1.- Guardar dos cadenas de DNA en las variables $DNA1 y $DNA2.

$DNA1 = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC';

$DNA2 = 'ATAGA';

# 2.- Mostrar en pantalla las dos cadenas

print "Estas son las dos cadenas de DNA:\n\n";

print $DNA1, "\n";

print $DNA2, "\n\n";

# Unir los dos fragmentos de DNA y guardarlo en la variable $DNA3, usando el operador "."

# Mostrarlo en pantalla

$DNA3 = $DNA1 . $DNA2;

print "Aqui está la unión de las dos cadenas:\n\n";

print "$DNA3\n\n";

# Triplicar la cadena 2

$DNA4 = $DNA2 x 3;

print "Aqui está la cadena triplicada:\n\n";

print "$DNA4\n\n";

exit;