sub format {
$long =~s/( & CO )[^,]+/ AND CO/;
$long =~s/&/AND/g;
$long =~s/( EUR1)[^,]+//;
$long =~s/( EUR2)[^,]+//;
$long =~s/( EUR3)[^,]+//;
$long =~s/( EUR4)[^,]+//;
$long =~s/( EUR8)[^,]+//;
$long =~s/( EUR0\.)[^,]+//;
$long =~s/( CHF10)[^,]+//;
$long =~s/( Y5)[^,]+//;
$long =~s/( NV )[^,]+//;
$long =~s/(NON-CUM)[^,]+//;
$long =~s/( LTD)[^,]+//;
$long =~s/( FIN )[^,]+//;
$long =~s/( INTL)[^,]+//;
$long =~s/( FIN )[^,]+//;
$long =~s/(\$)[^,]+//;
$long =~s/\s+$//g;

...etc... for another 40 lines!

}