#!/usr/local/bin/perl
# Jaime Prilusky, 2002

  my $file = $ARGV[0] || "p53.seq";

  my($line,$sequence);         # ensures fresh and private variables
  open(IN,$file);              # open file for reading
  @data = <IN>;                # reads all file  into array
  close(IN);                   # close file access

  $firstLine = shift @data;    # extracts only one line

  foreach $line (@data) {      # loops over all lines in data
    chomp($line);              # remove new-line character
    $sequence .= $line;        # concat read line with previous sequence
  }

  my $len = length($sequence);
  print $sequence,"\n";
  print "length $len\n";