my $data=<<"DATA";
BEGIN:01;BE;1000


                    Match This
                    Match That

                    SOMEWHERE,28
                    1000       BRUSSEL 1
                    Belgique
                    









 
DATA