use strict;
use warnings;

my $input = do {local $/; <DATA>};
my @lines = $input =~ m/(.*\n.*\n.*\n)/g;
foreach my $line (@lines)
{
   $line =~ s/\n/ /g;
   $line =~ s/ , /,/g;
   print "$line\n";
}

=Prints
99~Arun~Kumar~Mobilenum: 1234-567,from Earth Human 
98~Mahesh~Babu~Mobilenum: 5678-901,from Earth Human 
98~Mahesh~Babu~Mobilenbbb: 5678-901,from Earth Human 
=cut


__DATA__ 
99~Arun~Kumar~Mobilenum:
1234-567 , from Earth
Human
98~Mahesh~Babu~Mobilenum:
5678-901 , from Earth
Human
98~Mahesh~Babu~Mobilenbbb:
5678-901 , from Earth
Human