Просто для удовольствия и хихикает с помощью rename. Поскольку rename является инструментом Perl, который принимает произвольную строку, которая является eval'd, вы можете делать всевозможные махинации. Решение, которое, кажется, работает, следующее:
rename 's/.*/open(my $f, "<", $_);my $c=()=<$f>;$_."_".$c/e' *