Select Code to Download

$cui->add_callback( 'editor', \&current_word);

...
    ($candidate) = $part =~ /\b(\w+)$/; # caveat locale, utf8
    warn $fh "x: $x y: $y '$line' - '$part' candidate: '$candidate'\n"
+;
}