my $line   = 'Filesystem           1K-blocks      Used Available Use% Mounted on';
my @fields = $line =~ /(\s*\S+)/g;

print "[", 
  join( "][", @fields ), 
  "]\n";

__END__
[Filesystem][           1K-blocks][      Used][ Available][ Use%][ Mounted][ on]