#!perl

while(<>){
	chop;

	/^(.{50})(.{50})(.{50})(.{50})$/;

	foreach $text ($2, $3, $4){
		if ('1' eq substr $text, 0, 1){
			print $1 . $text . "\n";
		}
	}
}

exit(0);