Select Code to Download

my ($temp) = "121, 122, 123, 124, 125, etc.";
foreach my $uid (split /[[:space:]]*,[[:space:]]*/, $temp) {
  print $uid, "\n";
}