#!/usr/bin/perl

use Getopt::Long;
use strict;

my $template;
my $replacement;
my $prefix;
my $total;
my $counter;
my @template;

GetOptions (
    "template=s"    => \$template,
    "replacement=s" => \$replacement,
    "prefix=s"      => \$prefix,
    "total=i"       => \$total,
    );

open FH, "< $template" or die "Couldn't open the file $template\n";
@template = <FH>;
close FH;

##</code><code>##

for ($counter=0; $counter<$total; $counter++) {
    foreach (@template) {
        $_ =~ s/$replacement/${prefix}-${counter}/;
        print $_;
    }
}

##</code><code>##

enable config protocol mpls lsp name __replaceme__

##</code><code>##

# ./create_rsvp_lsp.pl -template lsp_template.tpl -replacement "__name__" -prefix "lsp_to_1.1.118.152" -total 5
enable config protocol mpls lsp name lsp_to_1.1.118.152-0
enable config protocol mpls lsp name lsp_to_1.1.118.152-0
enable config protocol mpls lsp name lsp_to_1.1.118.152-0
enable config protocol mpls lsp name lsp_to_1.1.118.152-0
enable config protocol mpls lsp name lsp_to_1.1.118.152-0