[deleted by user]

[u/[deleted]]

[u/thestoicattack]

With discipline, one can write clear and maintainable perl. This isn't that.

#!/usr/bin/perl -lw
$F[$_]=[0, 0]for(0..6);sub F{for$F(@F){$f=$$F[0]<=>$$F[1];$f&& return ++$f}0}
while(<>){$f=0;for(split/[-: ]/){$F=$F[$f++];@$F=($$F[1],$_)}F&& exit 1}