#!/usr/bin/perl -w
use strict;

my $usage = "Usage: $0 <fastq file>\n";
my $fastqFile = $ARGV[0] or die $usage;

open(FQ,$fastqFile) or die "Could not open fastq file: $fastqFile\n";
while(<FQ>) {
    chomp; # remove new line
    my $defLine = $_;
    my $sequence = <FQ>;
    chomp($sequence);
    my $defLine2 = <FQ>;
    chomp($defLine2);
    my $quality = <FQ>;
    chomp($quality);
    print "$quality\n";
}
close(FQ);
