my $filename = path( $path )->basename;
my( $date, $time ) = $filename =~ m{## as others have shown}x;