Select Code to Download

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