#!/usr/bin/perl
while (<>) {
    chomp; $raw=$_;
  $nice = tr/nice//d;
  $naughty = length;
  print $nice - $naughty," $raw\n";
}