my @array = (split(/[\s\:\\]/,$line));
foreach (@array) {