Select Code to Download

open my $out, '>', 'new_file' or die $!;

my $runTest = 'sydney,delhi,NY,Russia';
print {$out} $runTest =~ tr/,/\n/r;

my @lines = split /,/, $runTest;