++$";while($\=$/and$"++and$;=$"){
do{$;&=$|and last if!($"%$_)}for@_;
push@_,$"and print$"if$;}