my $s = '2003 % 05 % 1720:55:23';

$s =~ s[(....) % (..) % (..).*][$1-$2-$3]; 
print $s;

2003-05-17