my @allchars = (unpack("U*", $string));
    		foreach my $localchar (@allchars){
			print STDERR "$localchar " .  chr($localchar) . "\n";
			}