sub removetimestamp {
  my ( $line ) = @_;
  ( my $time, $line ) = split / /, $line, 2;
}