my (@locations) = "Location: England
                Location: Scotland
                Location: Finland " =~ /Location: (\p{General_Category=Letter}+)/gms;
print $locations[0]; # England
print $locations[1]; # Scotland
print $locations[2]; # Finland