#!/usr/bin/perl
# Selecao Simples.
my ($sequencia01, $sequencia02);
$sequencia01 = "GTGGGATC";
print "Digite a sequencia: ";
chomp($sequencia02 = <STDIN>); 
if($sequencia01 eq $sequencia02){
     print "Sequencia encontrada\n";
  }