uh, you want a Monastarian to translate that {)!(*)@# to perl?

Many here will be pleased to help you learn... or even to get past one of those pre-d'oh moments when you just can't quite think of something you know perfectly well (except this minute)

But a bald-faced "please work for me, for free" with no indication that you've made any effort to solve the problem is not a really welcome request here.

Please read: How (Not) To Ask A Question.