<>;($a,$b,$c)=glob<>;$a+=$b+=$c;$/=$";print~~grep$a<=($%-=++$d[$%]-length)&$d[$%-$a]&$d[$%-$b]&$d[$%-$c],<>