ROWS=$(perl -nE 'BEGIN{$PATTERN=shift();$PATTERN=qr/$PATTERN/;};$count++ if m{$PATTERN};}{ say $count' 'perl$' ~/.zsh_history)
echo "ROWS:$ROWS"