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

##</code><code>##

if( $line =~ /^REM \Q$sTest\E\s*$/i ) {