<p>Hi,

<p>I have an input file as below:-

<c>
Name: saya
Mobile: 013

Name: ken
Mobile: 019
</c>

<p>Right now i can read the input data and split it with new line (\n). But How could i append a new data at the begining and last of the record, as example:-

<c>
Title: Executive
Name: saya
Mobile: 013
done
</c>

<p>Could somebody help me and give some example ?

##</code><code>##

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