{
my %cache;
sub memoized {
    ( $cache{$a} ||= substr($a, -(19+20), 19) )
    cmp ( $cache{$b} ||= substr($b, -(19+20), 19) );
}
}