{
    my @temp_variables;
    push @temp_variables, split ' ', $stamp;
    push @temp_variables, split '/', $temp_variable[1];
    $temp_variables[2] =~ tr/://d;
    $stamp = join '_', @temp_variables[3,4,2];
    undef @temp_variables;
}