#!/usr/bin/perl

use strict;
use warnings;

my ($name, $logon, $size);

format STDOUT =
@<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<
$name, $logon, $size
.

while(<DATA>) {
   next if $. == 1;
   chomp;
   ($name, $logon, $size) = split /\s{2,}/;
   write;
}

__DATA__
Mailbox    Last Logged on By    Size (KB)    Total Items    Last Logon Time    Last Logoff Time    
Gehring Sabrina    Domainname\sa8bw    32 016    85    5.7.2006  16:36    5.7.2006  16:36    
Gehring Sabrina die erste von sechsen    Domainname\sa8bw    32 016    85    5.7.2006  16:36    5.7.2006  16:36