avi etc.. glitch by perl