defined(my $v = <>) or exit;
my ($c,@c) = 1;
open($_, "|-", "$^X $0") for @c[0,1];
$_ eq $v ? ++$c : print { $c[ $_ lt $v ] } $_ while <>;
pop @c;
print $v x $c;