kvóta értesítési rendszer

Sziasztok!

Elkezdtem a programomat ami a quota -s kimenetét dolgozná fel.
Ott akadtam el, hogy eléggé nehezen megy nekem a programozás.

Addig megy, hogy megtalálja az olyan szavakat amik tartalmaznak "M"-et.
Amit nem sikerült, hogy az ellenőrzés előtt szeretném az első 2 sort törölni, hogy csak a /dev-vel kezdődőt figyelje.
Úgy gondoltam, hogy nem hozok létre egy fájlt hanem elintézem az egészet memóriában.

Ezután még szeretném a talált M értékeket változókba tenni, ezt sem tudom pontosan hogy kell.
Szerintem ezután a számolást már meg tudnám csinálni, talán.....

Köszi

A quota -s kimenete:

Disk quotas for user csaba (uid 1000):
Filesystem blocks quota limit grace files quota limit grace
/dev/md2 512M 590M 700M 974 0 0

A programom:

#!/usr/bin/perl

#Ez a program a felhasznalok disk kvotait kerdezi le es dolgozza fel

use strict;
use warnings;

my $all_text;
my $string_to_find;

my $usage;
my $kvota;
my $max;

my @elemek;

$all_text=`quota -s`;

@elemek=split(/[ ]+/,$all_text);

foreach(@elemek)
{
if (/M/)
{
print "A(z) $_ szó tartalmazza az 'M' részletet\n";
}
}

print $all_text;

Ha futtatom a programot akkor jelenleg ezt adja:
A(z) 512M szó tartalmazza az 'M' részletet
A(z) 590M szó tartalmazza az 'M' részletet
A(z) 700M szó tartalmazza az 'M' részletet
Disk quotas for user csaba (uid 1000):
Filesystem blocks quota limit grace files quota limit grace
/dev/md2 512M 590M 700M 974 0 0

Feldolgozáson azt értem, hogy:
- amikor a tanulók (suli) belépnek elindul a kvota.pl ami ellenőrzi, hogy áll a saját kvótája + elindul egy időzítő
--ha kvóta ≥90% ⇒ xmessage (figyelmeztet, h kezd betelni)
--ha kvóta < 90% ⇒ ok nem jön felbukkanó
--ha kvóta =100% ⇒ xmessage (figyelmeztet, h betelt )
- az elindított időzítő újra lefuttatja ezt az egészet

Ez a tervem. Elég kezdő vagyok, lehet h másnak jobb ötlete is volna .

Jelenleg itt tartok:

#!/usr/bin/perl

#Ez a program a felhasznalok disk kvotait kerdezi le es dolgozza fel

use strict;
use warnings;
my @all_text;
my $usage;
my $kvota;
my $max;
my $valtozok;
my $line;
my @bits;
my $maradt;

$line=`quota`;

@bits = split(/\s+/, $line);

print "$bits[17] $bits[18] $bits[19]\n";

$maradt=$bits[18]-$bits[17];
print "$maradt\n";