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'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $rx_ordinal_indicator =
   qr{ (?<! [[:alpha:]]) (?: st | nd | rd | th) (?! [[:alpha:]]) }xms;
 ;;
 my $s = '1ds rule: 22hn, 2 then 3rd and 44 th, 2  nd of the 123|sdnfloor';
 ;;
 printf qq{'$&'  } while $s =~ m{ (\d+) \s* $rx_ordinal_indicator }xmsg;
"
'3rd'  '44 th'  '2  nd'