#!/usr/athena/bin/perl
$line = "        NAS-IP-Address = 18.162.0.186";
@fields = split(" ",$line);
$count = @fields;
print "count is $count\n";
print "$fields[0]\n";
print "$fields[1]\n";
print "$fields[2]\n";