@bsp = map{{((split)[4]=~/(.+)\.txt/) => [(split)[2,3]]}} @bsp;