c:\test>p1 $ips="30..39,50..59";; @array= eval $ips;; print "@array";; 30 31 32 33 34 35 36 37 38 39 50 51 52 53 54 55 56 57 58 59