Reg question

[Wagner-David]

I get the following warning:

Useless use of subtraction in void context at
c:\currwrka\00commonperl\03aaplxxx \aapl082.pl line 119.

        when this code :
        if ( /^[\=](.+)/ ) {

  in the following context is run(version: 5.005_003). I have tried a number
of different things(ie ^\=(.+) ), but always end up with the above message.
What am I doing wrong?

        I just trying to count lines of actual code verses blank lines and
comments. Using start of line =xxxx as a flag to skip code and  start of
line =cut to restart counting.

        Thanks for the assistance.

Wags ;)

[[  -------------------------------------------------------------------  ]]

Code snippet:

    my $equal = 0;
    
    INPUTTM: while (<FILEIN>) {
        chomp;
        $in++;
        next INPUTTM if ( /^\s*#/ or /^\s*$/ );
        if ( /^[\=](.+)/ ) {
           my $info = $1;
           $equal = 0 if ( $info =~ /cut/ );
           $equal  1 if ( $info !~ /cut/ )
         }
        next INPUTTM if ( $equal );
        $out++;
     }  # end of main while loop

application/ms-tnef