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

print "Enter the name of the original file(including termination): ";
my $original = <STDIN>;
chomp ($original);
print "Enter the name of the final file(including termination): ";
my $final = <STDIN>;
chomp ($final);

open( my $original_fh, "<", $original ) or die $!;
open( my $final_fh,    ">", $final )    or die $!;

my $first = <$original_fh>;
print $final_fh $first;
my @replace = $first =~ /"([^"]*)"/g;

while (my $line = <$original_fh>) {
	print "Enter the desired number of columns: ";
        my $nr = <STDIN>;
        chomp($nr);
	$line =~ s/((\w\w\t){$nr})/$1\n/g;
	$line =~ s/\t/,/g;
	$line =~ s/(\d{2})/$replace[$1]/g;
	print $final_fh $line;
}

close $original_fh;
close $final_fh;