perl> print $record
 100.100.100.100   1COMPUTER1    09/13/30828 22:48:05
perl> print +($record =~ m[(\d+)]g)[0..3]
100 100 100 100
perl>