Добрый день!
Есть вот такие скрипты:

vm_stat | perl -ne 'print "$1:$2 " if(/^\s*(.+)\s*:\s*(\d+).*$/)'

и

#!/usr/bin/perl
open (IN, 'vm_stat |') && print join ' ', grep !/^$/, map {$_ if s/\s+(\d+)\.\n*/$1/} <IN>;

Которые работают одинаково и выводит информацию для построения графиков в cacti.
в виде

Pages free:248491 Pages active: 345632 Pages inactive: 306207 Pages
wired down:146885 "Translation faults": 598998500 Pages copy-on-write:
42312589 Pages zero filled: 64106 Pages reactivated:64106 Pageins:
243273 Pageouts: 84934 Object cache:15930737

Но выясняется , что cacti требует названия без пробелов. Вот так:

Pages_free:248491 Pages_active: 345632 Pages_inactive: 306207 Pages
wired down:146885 "Translation faults": 598998500 Pages_copy-on-write:
42312589 Pages_zero filled: 64106 Pages_reactivated:64106 Pageins:
243273 Pageouts: 84934 Object_cache:15930737

Или можно оставить второе слово в сложных именах:

free:248491 active: 345632 inactive: 306207 Pages
wired down:146885 faults": 598998500 copy-on-write:
42312589 zero filled: 64106 reactivated:64106 Pageins:
243273 Pageouts: 84934 cache:15930737

Помогите исправить 1 или 2 (или оба)  скрипты по любому вариану ( без пробелов в именах  или по второму слову в сложных именах) .
Спасибо зараннее!