my $match =~ m/-\d+\d+\d+\d+\d+\d+\d+\d+\d+\d+\d+.*\..*/;