open (FILE, "<:encoding(UTF-8)", $Profile) or die $!;
my @Lines = <FILE>;
close(FILE);

open (FILE2, ">", $Profile) or die $!;