$dir = $1 if /\/(\w+(|-\w+|-\w+-\w+))\/\w+\.txt$/;