#!/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