jsrn

    $ perldoc perlrun

    $ curl -sS 'https://www.google.com/complete/search?client=hp&hl=en&xhr=t&q=aurora' | jq . | gsed -nE '/<\/?b>/{s```g;s`"|,|^ *``g;p}'

    $ brew install gnu-sed

    $ cpanm JSON::PP

    $ curl -L https://cpanmin.us | perl - App::cpanminus

    $ curl -sS 'https://www.google.com/complete/search?client=hp&hl=en&xhr=t&q=aurora' \
        | json_pp | gsed -nE '/<\/?b>/{s```g;s`"|,|^ *``g;p}'

    $ function c() { curl -sS "https://www.google.com/complete/search?client=hp&hl=en&xhr=t&q=$1" | json_pp | gsed -nE '/<\/?b>/{s```g;s`"|,|^ *``g;p}'; }

    $ c hacker
    hacker news
    hacker typer
    hackerrank
    hackerman
    hackers movie
    hacker fare
    hackerone
    hackers cast
    hacker pschorr

    $ c New+York
    new york times
    new york and company
    new york giants
    new york post
    new york daily news
    new york weather

    use Email::Valid;
    print (Email::Valid->address('[email protected]') ? 'valid' : 'invalid');

   perl -MEmail::Valid -E"say (Email::Valid->address('[email protected]') ? 'valid' : 'invalid');"

    cpanm Email::Valid

    $ perl -anE 'say $F[0]'

    http://perldoc.perl.org/perlrun.html

    $ man perlrun

    pi:~$ echo 'foo  bar' | tr -s ' ' | cut -d ' ' -f 2

    $ pdfinfo FILE.pdf | grep '^Pages' | tr -s ' ' | cut -d ' ' -f 2

    > And here's some constructive criticism for the aspiring Perl advocate