# shlomi-fish-homepage / bin / extract-spelling-errors.pl

 Shlomi Fish dc4c87d 2012-09-19   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl use strict; use warnings; use autodie; use utf8; binmode STDOUT, ":utf8"; open my $i, '<:utf8', 'foo.txt'; while (my$l = <$i>) { foreach my$m ($l =~ m/«(.*?)»/g) { print "$m\n"; } } close(\$i);