#! /usr/local/bin/perl -w

use strict;

open (INPUT, $ARGV[0]) or die "unable to open file";

my $sequence;
my $count =0;
my $base = ("A"|"C"|"G"|"T");
my @array;
my $ideal = 250;

while (<INPUT>)
{
$sequence = $_;
@array = ();
@array = split (/\n/, $sequence);

foreach $base ($sequence)
{
$count++;

if ($count > $ideal)
{
print "$base\n";
}
}
}