Re^2: Help required in optimizing the output (PERL)

Please don't post an answer. This post screams "please do my ~~home~~work for me." And shows no effort whatsoever.

Updated.

Comment on Re^2: Help required in optimizing the output (PERL)