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

use strict;

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

##</code><code>##

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

##</code><code>##

my @array;
my $ideal = 250;

while (<INPUT>)
{

##</code><code>##

$sequence = $_;

##</code><code>##

@array = ();
@array = split (/\n/, $sequence);

##</code><code>##

while (<>) {
  chomp; # lose potential newlines at the end. (only needed for portability)
  print $_,"\n" if length $_ > 250;  # print out any sequence longer than 250chars
} 

##</code><code>##

# find every line over 250 chars from three different files, print them to STDOUT
over_250 file.1 file.2 file.3
# find lines over 250 chars from STDIN
over_250 <file.1