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