I guess you're trying to shorten & standardise equity names, so it doesn't really matter what the issue price was, so you could merge all your EUR lines into one:
s/( EUR\d*)[^,]+//. Same for CHF, Y etc.
As for the dollar currencies, mind out because at the moment I think you've forgotten to escape a $ sign in $long =~s/\s+$//g;. I think you could catch all of 'em--C$, AU$, plain $, etc--with something like s/([\s+]?\$)[^,]+//g. (This may not be exactly right, but perhaps another helpful monk could put it right if it's not).
HTH