$part = join '', ((split /(-|_)/, $filename)[0..2])