i have ammended the code as follows

[Helen79]

i have ammended the code as follows but am still getting to fullstops at the end i.e. R.J..

sub shorten_initial()
{
@names = (split /\,/, $_[0]);
$init = "";
foreach $name (@names){
$init = $init . substr($name,0,1) . ".";}
$init=~s/\.\./\./g;
return $init;
}

Any ideas

Sorry about some of my replies being in someone elses name i am using a shared computer with cookies enables at work.

Helen

 

[Helen79]

I've it fixed now people there was a fullstop being inserted in another part of the code. Thanks Paul and hollywood.

Helen

 

[PaulTEG]

You're welcome
--Paul

 

[h011ywood]

You're welcome as well!
-Hwood