in reply to help me in giving a reg ex

You don't want to do that, see Mysterious Whitespaces between each character in a file

In Section Seekers of Perl Wisdom