<>=~$"; %0=%1=(0,a); for$a(glob<>){ $z|=$a==$'; $h^=1or$a=-$a; %u=%$h; $$h{$_+$a}|=$u{$_}|1,$$h{$_-$a}|=$u{$_}|2for keys%u; } for$a(keys%0){ $z|=$_&&($0{$a}|$_)==3for@1{$a-$',$a+$'}; } print$z?Yes:No;