This one looks for the position and substitutes with a 20. Hope this helps.

my $date = '02/04/03';
$date =~ s#(?<=/)(?=\d{2}$)#20#;
print "$date\n";
[download]