#!/usr/local/bin/perl

use strict;
use warnings;

my $timestmpa_value = "200504250955";
$timestmpa_value =~ s#\d{2}$#67#;
print $timestmpa_value