#!/usr/bin/perl -w
print "FILE_NAME: $ARGV[0]\n";
open (FILE, $ARGV[0]) || die "Can't open file\n.";
while (<FILE>) {
   if ($_ =~ /START\sOF\sRUN/) {print "\n";print $_;}
   if ($_ =~ /INFORMATION/) {chomp; $info = $_;}
   if ($_ =~ /CONSENSUS/)  {chomp; print "$_\t$info\n"; }
   if ($_ =~ /^#\s>>/) {print $_;}
}