perl..

так наверное

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

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

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

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

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

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

$filename = '12345-ert-ddf.333.666.1234567890'; $filename = join( '.', ( split( /\./, $filename ) )[0..2] );

труЪ