See the following code:
it will duplicate the lines starting with "ip address"

use strict;
use warnings;
open(FH,"data");
foreach(<FH>) {
   print $_;
   if ( $_ =~ m/^ip address/)   {print $_;}
}
[download]

--sugumar--