perl skill

open(INPUT,"$lmstat -c $conf -f $feature 2>&1 |") || exit(191);
while (< input >) {
if (/.*Total of (\d+) license.* issued\; Total of (\d+) license.* in use.*/) {
push(@totallic, $1);
push(@licusage, $2);
}