sub enter
{
my $new = shift;

$new=~s/\n\s*/ /gi;
return $new;
}