$video =~ s!...
!...
!xeg;