fastq2fasta.pl

#!/usr/bin/perl
while (<>) {
    s/^@/>/;
    print;
    $_=<>;
    print;
    <>;
    <>;
}