Is there some reason not to use regexen?

if ( $some_var =~ /'Opertations'/ ) {       # Opertations?  ;-)
    $doc_type = 2;
}
[download]

where $some_var contains the actual data, not a reference thereto.

At least one advantage would be that you need not know in advance where 'Opertations' appears. That could also be a disadvantage, if there's any possibility it will occur elsewhere in a different context.