my ($ID) = split /_/, $file;