gistfile1.txt

#!/usr/bin/perl

my @tests = (
    "redo meetv-backend",
    "redo meetv-backend on jessie",
    "redo meetv-backend MTW-320 on jessie",
    "redo meetv-backend develop",
    "redo",
);

for my $line (@tests) {
    my ($cmd, $params)      = (split /\s+/,      $line       || '', 2);
    my ($pkg_branch, $dist) = (split /\s+on\s+/, $params     || '', 2);
    my ($pkg, $branch)      = (split /\s+/,      $pkg_branch || '', 2);
    $pkg    ||= 'default-pkg';
    $branch ||= 'default-branch';
    $dist   ||= 'default-dist';

    printf "%-40s => <%s>-ing <%s> (%s) on <%s>\n", ($line, $cmd, $pkg, $branch, $dist);
}

=pod

$ perl ~/test.pl
redo meetv-backend                       => <redo>-ing <meetv-backend> (default-branch) on <default-dist>
redo meetv-backend on jessie             => <redo>-ing <meetv-backend> (default-branch) on <jessie>
redo meetv-backend MTW-320 on jessie     => <redo>-ing <meetv-backend> (MTW-320) on <jessie>
redo meetv-backend develop               => <redo>-ing <meetv-backend> (develop) on <default-dist>
redo                                     => <redo>-ing <default-pkg> (default-branch) on <default-dist