Wie kann ich das eiffizienter schreiben ?

[xNeTworKx]

#include <h.allo>

Ich würd gern mal wissen, ob ma da etwas iregendwie "zusammenfassen" kann, also ich mein damit sowas wie zB my x;, my y; ->  my(x,y);
Ich würde nämlich gern die ganze Sache etwas effizienter machen.

while ($textarea =~ /</g)  {  $textarea =~ s/</</;  }
    while ($textarea =~ />/g)  {  $textarea =~ s/</>/;  }
    while ($textarea =~ /[codeabschnitt]/g)   {
    $textarea =~ s/$_/<pre class="code">/;
    }
    while ($textarea =~ /[/codeabschnitt]/g)   {
    $textarea =~ s/$_/</pre>/;
    }