next unless m/^(_[\w]+)\s+(87)$/; my ($group,$id) = ($1,$2);

or next unless m/^(_appowner)\s+(\d+)$/; my ($group,$id) = ($1,$2);

There's probably a million other ways to do it though.