Whoops, here's the script:
# Change to the Strokeit Actions directory.
$actiondir = sprintf "%s\\Strokeit\\Actions", $ENV{PROGRAMFILES};
chdir $actiondir or die "Can't find Strokeit Actions folder\n";
print "\n";
# For each .cfg file ...
foreach ( <*.cfg> )
{
# Print the application name
print "$1\n" if /([\w\s]+)\.cfg/i;
open IN, $_;
while ( <IN> )
{
# Find an action
$action = $1 if /(^.*)\s+\[/;
# Print each associated gesture
printf " %-24s%s\n", $action, $1 if /gesture\s+=\s+(.*$)/;
}
print "\n";
close IN;
}