DB<16> p $loc_data
Location: England
Location: Scotland
Location: Finland
  DB<17> @locations =  $loc_data =~ /Location: ([^\n]+)/g;

  DB<18> x @locations
0  'England'
1  'Scotland'
2  'Finland'