#!/usr/local/bin/perl

# new line at the end of each print, automatically
$\ = "\n";

for (1..100) {
  $urd = rand();
  if ( $urd < 0.25 ) {
    $sequence = $sequence . q(a);
  } elsif ( $urd < 0.5 ) {
    $sequence = $sequence . q(c);
  } elsif ( $urd < 0.75 ) {
    $sequence = $sequence . q(g);
  } else {
    $sequence = $sequence . q(t);
  }
}


print $sequence;

print "saw poly-A" if $sequence =~ /aaaa/;

print $sequence;
print join(" + ", split("ata",$sequence));