Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  }
  return @pairs;
}

base is ATCGGTAC
pairs are AT TC CG GG GT TA AC