if( $file eq 'li' ) // сравниваем переменную $ file с "li" если да, идем в скобочки
        {
            $string =~ s#ProgramName 2.5#ProgMed#g; //переписываем в переменной $string все ProgramName 2.5 на ProgMed
            $string =~ s#ProgramName 2.0#ProgMed#g; // и тд
            $string =~ s#ProgramName 2#ProgMed#g;
            $string =~ s#ProgramName#ProgMed#g  if $string !~ /.+ProgramName \d.+/; // тут переписываем ProgramName на ProgMed
// только если в $string нет ProgramName с цыферкой
        }

!~
// это не совпадение по шаблону