$file =~s/\.HID$//i; # entfernt .HID
  $file =~s//\.HID$/i; # habs auch schon gemerkt.. ist schwachsinn,,.

#also:
$file =~s/.*?/.*?\.HID$/i;
#sieht total doof aus und funzt auch nicht, wie denn nu??