#!/usr/bin/perl -w
use strict;
while (<ARGV>) {
  my @x = split m/:/;
  next unless @x == 7;
  print ">", join(':', @x[0..4]), "\n", $x[5],"\n";
}
