Select Code to Download

print $1, $/ if ( $location =~ m{(?<=:)(?:.-)?(.+?)$} );

#!/usr/bin/perl
use warnings;
...
$names = Location:Timor Leste

$names = Location:Papua New Guinea

Canada
Germany
...
South Sudan
Timor Leste
Papua New Guinea