use POSIX qw( strftime );
my ($y,$m,$d) = unpack( 'A4 A2 A2', '20100302165019' );
print( uc( strftime( "%d-%b-%y", 0,0,0, $d,$m-1,$y ) ), "\n" );

##</code><code>##

my @months = qw( JAN FEB MAR ... DEC );
my ($y,$m,$d) = unpack( 'A4 A2 A2', '20100302165019' );
print( sprintf( "%02d-%s-%02d", $d, $months[$m-1], $y-2000 ), "\n" );