if( $line =~ m[^REM $sTest ?$]i ) { # ... }