#!/usr/bin/env perl

use strict;
use warnings;

{
    local $/ = "\n>";

    while (<DATA>) {
        chomp;
        my ($top, $seq) = split /\n/, $_, 2;
        print '>' unless $. == 1;
        print "$top\n";
        $seq =~ y/\n//d;
        print "$seq\n";
    }
}