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

##</code><code>##


@a = map{ my( $s, $e ) = split '\.\.'; $s .. $e } split ',', $ips;;

print "@a";;
30 31 32 33 34 35 36 37 38 39 50 51 52 53 54 55 56 57 58 59