perl -MO=Deparse -F: -lane "print $F[2]" checkstatres.txt

##</code><code>##

BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    our(@F) = split(/:/, $_, 0);
    print $F[2];
}

##</code><code>##

#!/usr/bin/perl -w
use strict;

$/ = "\n"; $\ = "\n";
open my $fh, 'cciss_vol_status /dev/ciss0 |';
while (defined($_ = <$fh>)) {
    chomp $_;
    our(@F) = split(/:/, $_, 0);
    print $F[2];
}