...
 my $txt = '-UK 123 123-UK 123-UK 123-UK';

 print "|$1|\n" while $txt =~ /((?:\d+-UK\W?)*)/g;
 ...