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