#from my script
...

if ($dd !~ /\d\d$/ || $dd =~ /<u$/ ) {
      $dd =~ s/..$/00/g;
}

...