perl -we '$_=q\s/.(?{$x++%4||$x++})//g;print$x\;eval;'