#!/usr/bin/perl
open (USERS, "user.txt") or die "Cannot open file user.txt: $!\n";
@users = (<USERS>);
close USERS;

foreach (@users){
    chomp;
    ($userid,$acode) = split/\|/;
    if ($userid eq $ENV{"USERNAME"}) {
        @fields = split //, $acode;

        open(REG, "template.reg") or die "Cannot open file template.reg: $!\n";
        @hex =(<REG>);;
        close(REG);

        open(NEWREG, "> import.reg") or die "Cannot open file import.reg: $!\n";
        foreach $line (@hex){
            my $i = 0;
            $line =~ s/,39,/,3$fields[$i++],/g;
            print NEWREG "$line";

        }
        close(NEWREG);
    }
}