Help for this page
$seq =~ s/\s//g;
$seq =~ s/\s+//g;
my $A = () = $seq =~ /A/ig;
my $A = $seq =~ tr/aA//;
my @matches = $seq =~ /[AG]TG.*?T[AG][AG]/ig;
print "Here are the matched parts of the string:\n";
print " '$_'\n" for @matches;
my $GENE = @matches;
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (545 votes). Check out past polls.