use strict; # because we should
use warnings; # because we should
use autodie; # die if problem reading or writing a file

my $base = 'D:/Some/Specific/Folder';

open (QR, '<', $oldqr);

for my $file (glob qq($base/ToUpload/Staging/*)) {
	open FILE,'+<',$file;
	binmode (FILE);
	while (my $line = <FILE>){
		my $firstname = getFN();
		my $lastname = getLN();
		my $email = getEM();
		if ($line =~ /<birthdate>/) {
			my $bdate = fetchBD();
			print FILE '      <birthdate>'.$bdate.'</birthdate>';
		}
	}
}

close QR;

sub fetchBD {
	while (my $line = <QR>){
		my $fns = index($line,'FirstName');
		$fns += 10;
		my $fne = index($line,'	LastName');
		my $fnl = $fne - $fns;
		my $fn = substr($line,$fns,$fnl);
		my $lns = index($line,'LastName');
		$lns += 10;
		my $lne = index($line,'	Email');
		my $lnl = $lne - $lns;
		my $ln = substr($line,$lns,$lnl);
		my $ems = index($line,'	Email	');
		$ems += 7;
		my $eme = index($line,'	BirthDate');
		my $eml = $eme - $ems;
		my $em = substr($line,$ems,$eml);

		if ($fn = $firstname) {
			if ($ln = $lastname) {
				if ($em = $email) {
					my $bdates = index($line,'	BirthDate	');
					$bdates += 11;
					my $bdate = substr($line,$bdates,10);

					return $bdate;
				}
			}
		}
	}
}

sub getFN{
	while (my $line = <FILE>){
		if ($line =~ /<firstname>/) {
			my $fnse = index($line,'<firstname>');
			$fnse += 11;
			my $fnen = index($line,'</firstname>');
			my $fnlo = $fnen - $fnse;
			my $firstname = substr($line,$fnse,$fnlo);

			return $firstname;
		}
	}
}

sub getLN{
	while (my $line = <FILE>){
		if ($line =~ /<name>/) {
			my $lnse = index($line,'<name>');
			$lnse += 6;
			my $lnen = index($line,'</name>');
			my $lnlo = $lnen - $lnse;
			my $lastname = substr($line,$lnse,$lnlo);

			return $lastname;
		}
	}
}

sub getEM{
	while (my $line = <FILE>){
		if ($line =~ /<email>/) {
			my $emse = index($line,'<email>');
			$emse += 7;
			my $emen = index($line,'</email>');
			my $emlo = $emen - $emse;
			my $email = substr($line,$emse,$emlo);

			return $email;
		}
	}
}