#!/usr/bin/perl -w

use strict;

my ($out, @outchars, $outsplit, $i);

my @outsplits = ('', ' ', '-', ':');

print "> ";
while (<>) {
	chomp;
	$out = $_;
	if ($out =~ m/:/) {
		$outsplit = '-';
	} else {
		$outsplit = ':';
	}
	$out =~ s,[ [:punct:]],,g;
	@outchars = split(' *', $out);
	print "\n";
	foreach $outsplit (@outsplits) {
		for ($i = 0; $i < $#outchars; $i++) {
			print $outchars[$i++], $outchars[$i];
			print $outsplit unless ($i >= $#outchars);
		}
		print "\n";
	}
	print "\n> ";
}