#!/usr/bin/perl -w

my @f;
my %memtypes = ('A' => 'SM', 'B' => 'ME');
my @extinfo;
my $numtype;
my $number;

while ( <> )
{
	chomp;
	@f = split(/;/, $_, 6);
	printf("%s;%s;%s;%d;%d", $f[0], $f[1], $memtypes{uc($f[2])}, $f[3], $f[4]);
	if ( defined($f[5]) )
	{
		@extinfo = split(/;/, $f[5]);
		while ( defined($numtype = shift(@extinfo)) )
		{
			$number = shift(@extinfo);
			printf(";11;%d;%s", $numtype, $number);
		}
	}
	printf("\n");
}