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

if (open FIN, "@ARGV[0]" )
{
        if (open FOUT, ">@ARGV[1]")
        {
                @a = <FIN>;

                $width = 1; $temp = @a;
                while ($temp > 10)
                        { $width++; $temp/=10; }

                for ($i=0, $index=0; $i<@a; $i++)
                {
                        if (substr(@a[$i],0,1) eq "#")
                        {
                                printf FOUT @a[$i];
                        }
                        else
                        {
                                @sp = split("/",@a[$i]);
                                $temp = @sp[$#sp];
                                @sp[$#sp] = "";
                                printf FOUT join("/",@sp) . "%0" . $width . "d_" . $temp, $index++;
                        }
                }
                close FOUT;
        }
        close FIN;
}