deleted some lines on perl file