Здравствуйте, alexxx50, Вы писали:

A>но работакт что то неправильно.

А нужно взять именно такой блок или текст в нём?
Во-втором случае, такое вот работает:

#!perl

$_ = '%IF% %PROGNOCATEGORY% %CATEGORYS% sometext... %ENDIF%';

m/%IF%
  (?:
    \s*
    %[^%]+%
    \s*
  )*
  (.*?)
  %ENDIF%
 /x;

print $1;