sub get_title {
   my ($name) = @_;
   return "...";
}


{
   local $/ = '';

   while (<DATA>) {
      s/\n+\z/\n/;

      my ($name) = /Name:\s*(.*)/;
      my $title = get_title($name);

      print("Title: $title\n");
      print("$_");
      print("done\n");
      print("\n");
   }
}


__DATA__
Name: saya
Mobile: 013

Name: ken
Mobile: 019