$ dcs-cli -w '[0-9]*[2-9][1-3]th' filetype:perl
Query: \b[0-9]*[2-9][1-3]th\b filetype:perl
Results: 3
Packages: 3 (libschedule-cron-events-perl yudit libcatmandu-perl)

libcatmandu-perl_1.2020-1/t/Catmandu-Fix-replace_all.t:19:
|
| is_deeply $pkg->new('date', '(\d{2})', '${1}th')->fix({date => "July 23"}),
>     {date => "July 23th"}, "interpolation works";
|
| is_deeply $pkg->new('words', '/b', '')->fix({words => "/bar"}),
https://codesearch.debian.net/show?file=libcatmandu-perl_1.2020-1%2Ft%2FCatmandu-Fix-replace_all.t&line=19#L19

yudit_3.1.0-1/bin/angles.pl:62:
| # ----- ang32 ----------------------------------------------------------------
| # For given int $xdif and $ydif, calculate atan2 (the angle from origin)
> # in 32th's of a circle from 0 to 32, rather than radians.  Note that it
| # returns 32 iff $xdif and $ydif are both zero, an ill-defined case.
| # Origin and direction are clockwise:
https://codesearch.debian.net/show?file=yudit_3.1.0-1%2Fbin%2Fangles.pl&line=62#L62

libschedule-cron-events-perl_1.96-2/lib/Schedule/Cron/Events.pm:340:
|       confess("Cron line [" . $self->{'initline'} . "] does not define any valid point in time, checked years: [" .
|           join(",", @{$self->{'set_e_checked_years'}}) .
>           "] (ex, 31th of February) ");
|     }
|   }
https://codesearch.debian.net/show?file=libschedule-cron-events-perl_1.96-2%2Flib%2FSchedule%2FCron%2FEvents.pm&line=340#L340

• Python ≥ 3.6
• websocket-client