#!/usr/bin/perl

use constant MAX_LINE_LENGTH => 80;

my $quoteSymbol = ">";
my $buffer = "$quoteSymbol";

# assume block paragraphs, i.e. an empty newline b/w paras

while(<>){
	if ($_ =~ /^\s*$/){
		print "$buffer\n$quoteSymbol\n";
		$buffer = "$quoteSymbol";
		next;
	}

	my @words = split /\s+/;

	while (scalar @words > 0){
		my $word = shift @words;
		if (length ("$buffer $word") > MAX_LINE_LENGTH){
			print "$buffer\n";
			$buffer = "$quoteSymbol $word";
		}else{
			$buffer .= " $word";
		}
	}
}

print "$buffer\n";