$file =   "/home/rajo/tmp/__iso-8859-2_Q_akcepta_E8n_FD_protokol_aplik
+_E1cie_MGA.doc__.doc";
$file =~ s/\s+/_/g;
$file =~ s/__iso-8859-2_Q_//g;
$file =~ s/_([A-F0-9])([A-F0-9])/ chr( (ord($1) - 48 - 7 * ((ord($1) &
+ 64 ) >> 6)) * 16   + ord($2) - 48 - 7 * ((ord($2) & 64 ) >> 6) )/ge;
$file =~ s/\.([a-z0-9]+)__\.\1$/.$1/gi;

# here convert filename to ASCII charset

print $file;
[download]