Newbie: Simple conditional on regexp match

[Kenneth Brun Nielsen]

Within a perl program, I want to go to a particular mode when a
keyword is found. The keyword is a regexp.

E.g.
#!/usr/bin/perl -w
open FILEHANDLE, "soatest.soa";
while (<FILEHANDLE>){
    if (/^\*| XI/) {
        print "match in line: $.\n";
    }
}

This conditional seems to be true for all lines (although they don't
match /^\*| XI/). What is the correct syntax?

Best regards,
Kenneth


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/