text seperation m.m

jeg har en fil der ser således ud

DatoTid Hostnavn ostype nrcpu TotalMem TotalSwap IoWait CpuIdle UsedMem FreeMem UsedSwap FreeSwap
14:09:58 omlinux Linux 1 507996 1043240  0,80 98,34 391756 116240  0 1043240
filsystem: /var
kapsitet: 2016520
forbrug: 8
filsystem: /
kapsitet: 35316224
forbrug: 8
filsystem: /boot
kapsitet: 102454
forbrug: 10


Den vil jeg gerne have have splittet op i mit program
således at jeg først læser fra "teksten FreeSwap"
Derefter skal tallene ind i hver sin var

indtil videre har jeg lavet følgende:

#!/usr/bin/perl -w
open(FIL, "<kap.rep");
while (defined($line=<FIL>)) {
#her vil jeg gerne at jeg først søgte efter FreeSwap, altså starte lidt inde i filen eller lign. 
#  print  ("$line\n");
@ar=$line;
foreach (@ar) {
  #her ville jeg gerne initslidere mine vars med
  værdierne fra filen
 
  print;
 
  }

}
close(FIL);


jeg mangler lidt hjælp at komme igang med.