$stamp =~ s/\w+\s+(\d+)\/(\d+)\/\d+\s(\d+).(.*)/$1_$2_$3$4/;