#!/usr/bin/perl

my $pad = 100_000_000;
my $s = 'a' x $pad;
$s .= 'qq was here';
$s .= 'b' x $pad;

print substr( $s, $pad, 10 ), "\n"; # qq was here

##</code><code>##

sub editcontig {
  my $rawseq = shift;
  $rawseq =~ s/\s+//g;
  $rawseq =~ s/[0-9]//g;
  return $rawseq;
}

##</code><code>##

if ( $goodseq =~ /([^actg]+)/ ) {
  die 'found unexpected character $1";
}