#!/usr/bin/perl
$a = '2003 % 05 % 1720:55:23';
$a=~ s/[0-9]{2}\:[0-9]{2}\:[0-9]{2}$//;
$a=~ s/\s+\%\s+/-/g;
print $a,"\n";