This is the revision history for lenor in <freenode.net:##perl>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 14291 | lenor | is | `eval my $arg = `quote d `arg!!; my ($qs, $qe) = (split //, $arg)[0,-1]; $arg =~ s/^\Q$qs//; $arg =~ s/\Q$qe\E$//; (grep length, split /\Q$qe $qs/, $arg)[0];! rand(@ls)+1 |
pink_mist | <*:##NULL> |