$time =~ s/\..*//;

##</code><code>##

substr $time, 8, -1, "";  # Or
$time = substr $time, 0, 8;