goofy program: git log, but with sign-off lines

git-slog.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

binmode STDOUT, ':encoding(UTF-8)';

open my $git, '-|', (
  'git', 
  'log', 
  '--color=always', 
  @ARGV,
  '--pretty=tformat:%(trailers:key=Signed-off-by,keyonly=yes,separator=+) %C(auto)%h%d %s',
) or die "bad pipe: $!";

while (my $line = <$git>) {
  my ($signoff, $hash, $rest) = split / /, $line, 3;
  my $key = $signoff ? '✓' : '¿';
  print "$key $hash $rest";
}