use strict;
use warnings;
use Date::EzDate;

my $str = <<DATA;
 Security          : BULGY N V-                         
 Item Overridden   : Earnings Per Share                 
 Initial Value     :  (USD)                             
 Current Value     :  ()                                
 Overridden Value  : 160 (USD)                          
 Effective         : 08/20/1999 through 08/20/2000      
 Override Type     : Data
 SecurityID        : 1076665
 Sedol             : 2451234
 Cusip             : N66696606
 ISIN              : NL0006122988  


DATA

$str =~ s/\n//g;

while ($str =~ /(.*?):\s(.*?)\s\s/g) {
    my ($key, $value) = ($1, $2);
    
    $key =~ s/^\s*//;
    $key =~ s/\s*$//;
    $value =~ s/^\s*//;
    $value =~ s/\s*$//;
    print ">$key: $value<\n";
}

##</code><code>##

>Security: BULGY N V-<
>Item Overridden: Earnings Per Share<
>Initial Value: (USD)<
>Current Value: ()<
>Overridden Value: 160 (USD)<
>Effective: 08/20/1999 through 08/20/2000<
>Override Type: Data SecurityID<
>: 1076665 Sedol<
>: 2451234 Cusip<
>: N66696606 ISIN<
>: NL0006122988<

##</code><code>##

>Security: BULGY N V-<
>Item Overridden: Earnings Per Share<
>Initial Value: (USD)<
>Current Value: ()<
>Overridden Value: 160 (USD)<
>Effective: 08/20/1999 through 08/20/2000<
>Override Type: Data<
>SecurityID: 1076665<
>Sedol: 2451234<
>Cusip: N66696606<
>ISIN: NL0006122988<