schwern · February 17, 2010 04:29
diff --git a/gistfile1.txt b/gistfile1.txt
 #!/usr/bin/perl

 use utf8;
 use YAML::XS qw(Load);

 binmode $_, ':encoding(utf8)' for (*STDIN, *STDOUT, *STDERR, *DATA);
 #no utf8;  # its interfering with the DATA loading

 my $authors2email = Load(join "", <DATA>);
 exit;

 __DATA__
 Ævar Arnfjörð Bjarmason:
  - [email protected]
  - [email protected]
 貞廣知行:
  - [email protected]
	#!/usr/bin/perl

	use utf8;
	use YAML::XS qw(Load);

	binmode $_, ':encoding(utf8)' for (STDIN, STDOUT, STDERR, DATA);
	#no utf8; # its interfering with the DATA loading

	my $authors2email = Load(join "", <DATA>);
	exit;

	__DATA__
	Ævar Arnfjörð Bjarmason:
	- [email protected]
	- [email protected]
	貞廣知行:
	- [email protected]