#!/usr/bin/perl

open(PROCESS, "beanc | grep -w $ARGV[0] |");
foreach (<PROCESS>) {
	if ($_ =~ /($ARGV[0].*?\s*)(.*?[0-9]*)(\s*)(.*?[0-9]*)(\s*)(.*?[0-9]*)(\s*)(.*?[0-9]*)(\s*)(.*?[0-9]*)/) {
		print "held:$2 ";
		print "maxheld:$4 ";
		print "barrier:$6 ";
		print "limit:$8 ";
		print "failcnt:$10";
	}
}
close(PROCESS);