#!/usr/bin/perl

$input=`quota -v`;

$input =~ s/\/export\/home[1-5] *\n/\/home/;
$input =~ s/\s+/ /g;
$input =~ s/\/var/\n\/var/;
$input =~ s/\/home/\n\/home/;
$input =~ s/: /:\n/;
print $input;