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

##</code><code>##

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