Plz format your posting according to Markup in the Monastery

And then plz try to rephrase your question, the code given doesn't look like Perl and your examples are cryptic...