Select Code to Download

while(<DATA>) {
    my $str = $_;
...
    my @parts = split(':::', $str);
    print join("==>", @parts), "\n";
}

!A001ST!==>!98!==>!1!==>!01/10/1999!==>!EUROPEENNE!==>!0!==>!EUR!==>!6
+!==>!7!==>!0!==>!98!==>!1!

!A001ST!==>!AD,CD!==>!1!==>!20/05/2004!==>!ANDORRA!==>!0!==>!EUR,USD!=
+=>!6!==>!7!==>!0!==>!AD!==>!1!