($number, $sign_name, $sign_email, $sign_homepage, $sign_icon, $sign_time, $sign_msg ) = split ( /__/, $line ) ;
$sign_msg = "Hello, World!\n";    # Do your modification here
$newline = join ( /__/, ($number, $sign_name, $sign_email, $sign_homepage, $sign_icon, $sign_time, $sign_msg );
push @newarray, $newline;