perl..

так наверное

s/^(.*?).{11}$/$1/;

Чем вариант sdio не устраивает?

>Я нашел перловую chop , но как его 11 раз применить?
В цикле :)

$filename="12345-ert-ddf.333.666.1234567890";
for(1..11){chop $filename;}

Мой вариант:
$filename=substr($filename,0,-11);

труЪ