($month, $day, $hour, $min, $ampm) = ($stamp =~ m|(\d+)/(\d+)/\d+\s+(\d+):(\d+)(\w)|);

##</code><code>##

$newstamp = sprintf("%02d_%02d_%02d%02d%s", $month, $day, $hour, $min, $ampm);