Help for this page
c:\@Work\Perl\monks>perl -wMstrict -le "my $s = '1ds rule: 22hn, 3rd and 123|sdnfloor'; ... printf qq{'$&' } while $s =~ m{(\d+)([st|nd|rd|th])+}xmsg; " '1ds' '22hn' '3rd' '123|sdn'
c:\@Work\Perl\monks>perl -wMstrict -le "my $rx_ordinal_indicator = ... printf qq{'$&' } while $s =~ m{ (\d+) \s* $rx_ordinal_indicator }xms +g; " '3rd' '44 th' '2 nd'