...
        $frmType = substr $_, 1, 3;
        if ($frmType eq "M729")
        { ...