while (<>) { for (split(/\W+/)) { $freq{$_}++; } } for (sort keys %freq) { print "$_ -- $freq{$_}\n"; } title='Atom feed' href='https://git.ruby-lang.org/ruby.git/atom/lib/English.rb?h=master' type='application/atom+xml'/>