What do you mean with "junks"? You will need to be more specific, because unfortunately we are not all-knowing.
Don't forget we are not a code-writing service. We will help you if you at least try to solve your problem. If you need code written for you, find and hire/contract a Perl programmer -- perhaps a freelancer of sorts.
If you would like to be helped here, you may want to read the very informative nodes linked below every text field, especially How do I compose an effective node title? and How do I post a question effectively?.
~Thomas~
"Excuse me for butting in, but I'm interrupt-driven..."