687551.pl syntax OK
perl  687551.pl
||
||
||
||
||
||
||
||
|123-UK 123-UK 123-UK|
||

##</code><code>##

my $txt = '-UK 123 123-UK 123-UK 123-UK abc-oops!';
print "|$1|\n" while $txt =~ /((?:\d+-UK\s))/g;
##</code><code>##

perl  687551.pl
|123-UK |
|123-UK |
|123-UK |