$re = join '|', @list;

##</code><code>##

/\b(?=\d)$re\b/o