Select Code to Download

perl -nE '$count{$1}++ while /\b(the|hi|linux)\b/ig; END{say "$_ => $c
+ount{$_}" for keys %count}' filename.txt

#!/usr/bin/perl

...
}

print "$_ => $count{$_}\n" for keys %count;