Select Code to Download

my $var;
if ($string =~ /$capture_regex/) {
    $var = $1;
}

my ($var) = $string =~ /$capture_regex/;

next unless $string =~ /$capture_regex/;
my $var = $1;

my $var;
if ($string =~ /$capture_regex/) {
...
    # ... issue warning, make a log entry, or whatever ...
    next;
}

$ grep soft /usr/share/dict/words | wc -l
30
$ grep ^soft /usr/share/dict/words | wc -l
22

/ \b (?: soft | softer | softest ) \b /ix

#!/usr/bin/env perl

...

    return \%corpus;
}

{ "2017-09-01" => 4, "2017-09-03" => 6, "2017-09-04" => 12 }

$count_for_date{$date} ||= 0;

{ "2017-09-01" => 4, "2017-09-02" => 0, "2017-09-03" => 6, "2017-09-04
+" => 12 }