SystemUIServer:

      Version: 1.5.5
      Last Modified: 8/23/09 8:22 PM
      Kind: Universal
      Get Info String: SystemUIServer version 1.5.5, Copyright 2000-2009 Apple Computer, Inc.
      Location: /System/Library/CoreServices/SystemUIServer.app

    UserNotificationCenter:

      Version: 3.0.0
      Last Modified: 1/29/07 11:03 PM
      Kind: Universal
      Location: /System/Library/CoreServices/UserNotificationCenter.app

##</code><code>##

#!/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";