script to figure out which English expression is common

which-is-common.p6

#! /usr/bin/env perl6
use v6.c;
use HTTP::UserAgent;
use XML::Document;
use HTML::Parser::XML;

sub get-popularity($user-agent, $phrase) {
  my $url = 'https://www.google.com/search?lr=lang_en&as_epq=' ~ $phrase.subst(' ', '+', :g);
  my $response = $user-agent.get($url);
  my $parser = HTML::Parser::XML.new;
  my $doc = $parser.parse($response.content);
  my $result-stat = $doc.getElementById('resultStats');
  unless $result-stat ~~ /\&\#32004\;\s(<[\d,]>+)\s\&\#20214\;/ {
    return -1;
  }
  $0.Str.subst(',', '', :g).Int;
}

sub MAIN(*@phrases) {
  my $ua = HTTP::UserAgent.new;
  @phrases.map(-> $phrase {
    my $hits = await start { get-popularity($ua, $phrase) };
    $phrase => $hits;
  }).sort(-*.value).map(&say);
}