#!perl -p s// /until($_^$^)=~/[^]{4}|2/;$^=$_