#!/usr/bin/perl
use strict;
use warnings;

use Inline::Files;  # allows files to be included in source code

my $template = <TEMPLATE>;  # reads first line
                            # $template has a trailing \n
my $name;
while (defined ($name = <NAME>) and $name =~ /\S+/) # process until blank line
{
    chomp $name;
    my $ip;
    defined ($ip = <IP>) and $ip =~ /\S+/ or die "Mis-matched number of lines";
    chomp $ip;
    printf ($template,$name,$ip);  # note uses the \n within template line
}

=prints:
my name is john. My local machine ip is 10.0.1.2.
my name is peter. My local machine ip is 10.2.3.4.
my name is mickey. My local machine ip is 10.3.4.5.
=cut


__TEMPLATE__
my name is %s. My local machine ip is %s.

__NAME__
john
peter
mickey

__IP__
10.0.1.2
10.2.3.4
10.3.4.5