#!/usr/bin/perl

$apps_rep = `system_profiler SPApplicationsDataType 2> /dev/null`;

@apps_lines = split(/\n/,$apps_rep) ;

@apps=();

$count = @apps_lines ;

$i=$j=$k=$p=0;

while ($j<$count) {
	$apps[$i] .= $apps_lines[$j] ;
	$apps[$i] .= "\n" ;
	$i++ if ($apps_lines[$j]) =~ /^\s\s\s\s\S.*:$/;
	$j++;
	}
	
print "$i apps\n" ;

while($k<$i) {
	$_ = $apps[$k++] ;
	if (/Kind: PowerPC/s) {print; $p++} ;
	}	
	
print "$i applications, $p PowerPC applications\n\n";