>Перл не может пропарсить имя файла, если файл лежит в каталоге, названном
>по русски. Например "C:\Мои документы\1.jpg". Полное имя файла выводит "C:\М", а иногда правильно.

>my $foto = param ('foto');
param ('foto') - это и есть fullpath???

> if ($foto !~ /([\w-]+ \. (?: gif | jpe?g ))$/ix) #только имя,путь выкидывается
> {
>;
> }  else  {
>   $filename="$1";
а)[\w] - работает только с англ.буквами (if not use locale)
б) при такой конструкции $1 - совсем не обязательно == ([\w-]+ \. (?: gif | jpe?g );
в) if ($foto =~ /^.*([^\/\\/]+ (gif | jpe?g ))$/i) { $fn = $1 }