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