Simple ToDo Tracker for Markdown

#!/usr/bin/env perl

# Inspired from [Simple Todo Tracker](https://getbitbar.com/plugins/Lifestyle/todo.30s.sh)

use strict;
use warnings;

# Edit the path to the file describe your ToDo
my $file_path = "$ENV{HOME}/Dropbox/TODO.md";

# Select your editor
my $editor = "/Applications/Atom.app/Contents/Resources/app/atom.sh"; # Atom
# my $editor = "/Applications/TextMate.app/Contents/Resources/mate"; # TextMate
# my $editor = "/Applications/Sublime Text.app/Contents/SharedSupport/bin/subl"; # Sublime Text
# my $editor = "/Applications/CotEditor.app/Contents/SharedSupport/bin/cot"; # CotEditor
# my $editor = "/Applications/Emacs.app/Contents/MacOS/Emacs"; # Emacs

# Change here depending on your preference
my $font_color_finished = "#C0C0C0";
my $font_color_unfinieshed = "black";
my $font_color_label = "gray";
my $menu_bar_icon = ":ballot_box_with_check:";

# <xbar.title>Simple ToDo Tracker for Markdown</xbar.title>
# <xbar.version>v1.1</xbar.version>
# <xbar.author>Kenji Akiyama</xbar.author>
# <xbar.author.github>artifactsauce</xbar.author.github>
# <xbar.desc>Tracking ToDo list described in Markdown</xbar.desc>
# <xbar.image>http://i.imgur.com/nIEVIdR.png</xbar.image>
# <xbar.dependencies>perl</xbar.dependencies>

my $unfinished_task_cnt = 0;
my @tasks = ();

open my $fh, "<", $file_path or die $!;
my $content = do { local $/; <$fh> };
close $fh;

$content =~s/<!--.*?-->//sg;

for ( split /\n/, $content ) {
    next unless $_ =~/^\s*(?:[\-\+\*]|\d+\.?)\s{1,3}\[(.)\]\s+(.+)$/;
    my $task = {
        checked => ($1 eq "x"),
        title => $2,
    };

    if ( $task->{title} =~s/^(?:label\:(\S+))?\s*(.+)$/$2/i ) {
        $task->{label} = $1;
    }

    if ( $task->{title} =~s/\[(.+?)\]\((\S+?)\)/$1/ ) {
        $task->{url} = $2;
    }

    $unfinished_task_cnt++ unless $task->{checked};
    push @tasks, $task;
}

print "$menu_bar_icon:$unfinished_task_cnt\n";
print "---\n";

for ( my $i = 0; $i <= $#tasks; $i++ ) {
    my $font_color = $tasks[$i]->{checked} ? $font_color_finished : $font_color_unfinieshed;
    my $option_string = "color=$font_color trim=false";
    $option_string .= " href=$tasks[$i]->{url}" if defined $tasks[$i]->{url};

    if ( ! defined $tasks[$i]->{label} ) {
        printf "%s | %s\n", $tasks[$i]->{title}, $option_string;
    }
    elsif ( defined $tasks[$i-1]->{label} && $tasks[$i-1]->{label} eq $tasks[$i]->{label}) {
        printf "    %s | %s\n", $tasks[$i]->{title}, $option_string;
    }
    else {
        printf "%s | color=$font_color_label\n", $tasks[$i]->{label};
        printf "    %s | %s\n", $tasks[$i]->{title}, $option_string;
    }
}

print "---\n";
print "Open file | bash=$editor param1=$file_path terminal=false\n";
# print "Refresh | refresh=true\n"; # enable to refresh manually