if ( $_[0] =~ /REM IF ([^ ]*) ([^ ]*) \'([^']*)\'/ ) {
    $variable = $1;
    $operator = $2;
    $text = $3;
}