Select Code to Download

my $rcs = '$Id: dnsmod,v 1.17 2001/07/20 20:10:14 root Exp root $';
my ($garbarge, $garbage, $version) = split(/ /, $rcs);

@array = = split(/ /, $rcs);
$version = $array[3];