есть скрипт на перле, что-то вроде:

$some_file = 'filename';

$mydir =~ s/^([\d\w]+)$/$1/; #<= провекра &#8470;1 , имхо оно ничего не проверяет)
unless (-d "$mydir") { $mydir = 'en';} #<= провекра &#8470;2

$code = 'require '. "\"$mydir/" .$some_file. '.pm"; ';
eval $code;

Проблема в следующем, нужно так сформировать $mydir, чтобы обойти проверки 1 и 2 (помоему только 2), и втиснуть system(); в переменную $code, ну и потом собсно еval ее :)
обойти проверки на наличии директории я смог обойти с помощью вставки точки и нулевого символа (%2e%00), но не могу правильно вставить выражение в $code.

Жду Ваших предложений.

Follow Ups:

• Подробности по этому вопросу можно найти тут: (+) tipsy 23:38:55 07/05/03 (0)
• Если не рассматривать первый фильтр - то можно так: :( 08:54:28 05/05/03 (5)
  • Re: \s -?? h0snp 12:30:19 05/05/03 (4)
    • \s - пробел однако, можно \x20 :( 11:50:38 05/06/03 (3)
      • Re: \s - пробел однако h0snp 17:06:51 05/06/03 (2)
        • perl -e 'print "A\x20A\n"' :( 10:16:53 05/07/03 (1)
          • к чему это? :) я спрашивал ,как сделать чтобы require находил скрипт, впереди имени котор... h0snp 16:19:31 05/07/03 (0)