reguläre Ausdrücke

Hi,

ich habe ein Script geschrieben, was ein Perl - Script zu einer HTML - Datei konvertiert. (html code wird erzeugt und die Befehle wie if, while usw. werde fettgedruckt)
Nur leider stehe ich seit 2 Tagen vor dem Problem, daß wenn ich beispielsweise ein if ersetzten will er mir automatisch auf ein "shift" umformatiert. (Was ja auch logisch ist... http://www.linuxforen.de/ubb/frown.gif )
Somit dachte ich mir ich füge einfache in die Regexp noch einkleines Konstruckt mit ein, in dieser Form etwa

s/[^a-zA-Z ]if/[b]if<\/b>/g;

Jetzt wird das shift nicht mehr fettgedruckt, sondern normal dargestellt. Jedoch werden jetzt auch keine if's mehr gebold...
Außerdem werden jetzt auch noch mehrer Leerzeichen einfach weg gelassen.
Ich stehe for einem Rätsel...

Hier erst das Script:

<pre>

#!/usr/bin/perl

use Getopt::Long;

$result = &GetOptions("version", \$version_p,
"o=s" => \$oname_p);
print "Version 0.01\n" if $version_p;

&usage() if not @ARGV;

sub usage
{
print <<"EOUSAGE";
usage: $0 [-o output-file] input-file
where options may be:
--version
o- name

EOUSAGE
exit 1;
}
$arg1 = shift @ARGV;

sub meta
{
s/&/&/g;
s/</</g;
s/>/>/g;
s/"/"/g;
s/ / /g;
}

if ($oname_p)
{
open INPUT, $arg1 | | die "Is nich \n\n";
while(<INPUT>)
{
chop $_;
&meta;
s/\t/        &n bsp; /g;
s/if\W/[b]if<\/b>/g;
s/else/[b]else<\/b>/g;
s/elsif/[b]elsif<\/b>/g;
s/while/[b]while<\/b>/g;
s/do/[b]do<\/b>/g;
s/die/[b]die<\/b>/g;
s/sub/[b]sub<\/b>/g;
$_ .= "
\n";
push(@output, $_);

}
close INPUT;

print "<html><head><title> Test Output von $arg1 </title></head><body>";

print @output;

print "</body></html>";

}

else
{

}

</pre>

Und hier mal eine Seite die konvertiert wurde....

>#!/usr/bin/perl 
use Getopt::Long;
$result = &GetOptions("version& quot;, \$version_p,

        &n bsp;       &nbs p;               "o=s" => \$oname_p);

print "Version 0.01\n" ifnbsp;$version_p;
&usage() ifnbsp;not @ARGV;
sub usage

{

        &n bsp; print <<"EOUSAGE";

usage: $0 [-o output-file] input-file

        &n bsp; where options may be:

        &n bsp; --version

        &n bsp; o- name
EOUSAGE

        &n bsp; exit 1;

}

$arg1 = shift @ARGV;
sub meta

{

        &n bsp; s/&/&amp;/g;

        &n bsp; s/</&lt;/g;

        &n bsp; s/>/&gt;/g;

        &n bsp; s/"/&quot;/g;

        &n bsp; s/ /&nbsp;/g;

}
ifnbsp;($oname_p)

        &n bsp; {

        &n bsp;       &nbs p;   open INPUT, $arg1&nb sp;| | die &qu ot;Is nich \n\n";

        &n bsp;       &nbs p;   while(<INPUT> )

        &n bsp;       &nbs p;   {

        &n bsp;       &nbs p;   chop $_;

        &n bsp;       &nbs p;   &meta;

        &n bsp;       &nbs p;   s/\t/&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; & nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/g;

        &n bsp;       &nbs p;   s/ifW/<b>iflt;\/b>/g;

        &n bsp;       &nbs p;   s/else/<b>else<\/b>/g;

        &n bsp;       &nbs p;   s/elsif<b>elsiflt;\/b>/g;

        &n bsp;       &nbs p;   s/while/<b>while<\/b>/g;

        &n bsp;       &nbs p;   s/do/<b>do<\/b>/g;

        &n bsp;       &nbs p;   s/die/<b>die<\/b>/g;

        &n bsp;       &nbs p;   s/sub/<b>sub<\/b>/g;

        &n bsp;       &nbs p;   $_ .= "<br&g t;\n";

        &n bsp;       &nbs p;   push(@output, $_);

        &n bsp;       &nbs p;   

        &n bsp;       &nbs p;   }

        &n bsp;       &nbs p;   close INPUT;  & nbsp;    & nbsp;  

        &n bsp;       &nbs p;   

        &n bsp;       &nbs p;   print "<html>& lt;head><title>  Test Output von $arg1 </title></head><body>";
        &n bsp;       &nbs p;   print @output;

        &n bsp;       &nbs p;   

        &n bsp;       &nbs p;   print "</body></html>";

        &n bsp; 

        &n bsp; }
else

        &n bsp; {
        &n bsp; 

Also ich bin ratlos, vielleicht könnt Ihr mir ja helfen...