Select Code to Download

#!/usr/bin/perl
# -*- cperl -*-
...

print "Of $total lines, skipped $skipped.\nFound $japanese Japanese wo
+rds.
$already already had cards.\n$inserted new cards would be created.\n";

    my @char = $spelling =~ m/(\P{M}\p{M}*)/g;