perl, cp1251, utf8

пишу парсирование xls->mysql 
есть строка гарантия товара вида 2 месяца, 3 года, или пустая строчка - нет гарантии 

sub NormalizateGuarantee
{
  
  my $guar = shift;
  my $value = '';
  
  # убираем пробелы 
  $guar =~ s/\s//g;
  $guar =~ s/-//g;

  # пустая строка - выходим
  return 0 if($guar qw "");
  
  for($i = 0; $i < length($guar); $i++)
  {
    if(substr($guar, $i, 1) eq 'г' || 
        substr($guar, $i, 1) eq 'л')
    {
        $value *= 12; 
    }
    else
    {
        $value .= substr($guar, $i, 1);
    }  
 
  }
  
  
  return $value;
  
}

но тут возникает вопрос как избавиться от зависимости кодировки ввода русских букв в коде т.е. г,л ?
почему спрашиваю - просто не уверен что на сервере заработает
да согласен всегда можно залезть и исправить
просто хочу узнать правельное решение ))

псб . )