#!/perl/bin/perl

use strict;
use warnings;

my $YYMMDD = '130510';
my @D      = unpack('(A2)*', $YYMMDD);
my $date   = join('/', @D);

print $date, "\n";