Добрый день! Я не знаю Perl, но очень нужно заставить небольшой скрипт, который работает под Perl-5.14, заставить работать под стареньким Perl-5.8.8. По вставке отладочных сообщений нашел что не отрабатывает строка с:

my ($fn, $type, $sym) = /^$inpdll:(.*?):\S+\s+(\S)\s+(\S+)$/o;

Есть мысли по поводу как это заставить работать под стареньким Perl?

Вот примеры строк которые обрабатываются в цикле: /usr/i686-pc-msys/mydll.a:d000125.o:00000000 T __acltotext32

/usr/i686-pc-msys/mydll.a:d000125.o:00000000 I __imp___acltotext32

Должно получиться:

fn = T type = __acltotext32 sym = d000125.o