#!/usr/bin/perl

use strict;
use warnings;

use Date::Parse;

my $file = shift;

open (my $FH, "<", $file) or die "Can't open startime file $file\n";

while (my @line = split("\t" , <$FH>)){

    if ($line[0] !~ /^2023/) {
	next;
    }

    my $time = str2time($line[0]);

    print "$time\t$line[1]";

}