$data2 =~ s/Level1 //gに ; が無いからprintの行でエラーのお知らせなんじゃね？