Many thanks.

Adding substr($a,-7)= ""; # empty string sorted things out

Apologies for all the newlines. I'lll try and sort that out in future postings.