Skip to content

Instantly share code, notes, and snippets.

@schwern
Created February 17, 2010 04:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save schwern/306297 to your computer and use it in GitHub Desktop.
Save schwern/306297 to your computer and use it in GitHub Desktop.
#!/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:
- avar@cpan.org
- avarab@gmail.com
貞廣知行:
- bqw10602@nifty.com
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment