#!/usr/bin/perl

use strict;
use warnings;

my $memory = { lastcode => '', code => '', number => '', name => '' };

while(my $entry = <DATA>)
{
	chomp $entry;

	my ( $code, $number, $name ) = split /\|/, $entry;
	if ( $code eq '10' )
	{
		$memory = {
			%$memory,
			code => $code,
			number => $number,
			name => $name,
		};
	}
	else
	{
		if( $code eq '20' and $memory->{code} eq '10' )
		{			
			print join("|", map { $memory->{$_} } qw/code number name/) . " $entry\n"
				unless cmp_memory( $number, $name);
		}
		elsif ( $code eq '01' and $memory->{code} eq '10' && $memory->{lastcode} eq '20' )
		{
			print "$entry\n"
				unless cmp_memory( $number, $name);
		}
	}
	$memory->{lastcode} = $code;
}

sub cmp_memory {
	my ( $number, $name ) = @_;
	return $number eq ( $memory->{number} || '' ) && $name eq ( $memory->{name} || '' );
}

__DATA__
01|1-123-878|Musterfrau
01|1-010-123|Muster
01|1-051-543|Mayer
20|2-123-452|Bauer
01|2-453-345|Huber
10|1-123-134|Max Mustermann
20|1-456-789|Peter Huber
01|1-457-123|Max Mayer