while (my $in1 = <$IN1>) {
     chomp $in1;
     $in1 =~ s/:/ /;
     my $in2 = <$IN2>;
     $in2 =~ s/:/ /;
     print "$in1|$in2";
}