edzilla reminders

if ($do_r == 1 || $do_h == 1) #in
{
    $dur = 0;
    while (1==1)
    {
#       print $do_a;
#       print " -!- args: '$do_a'";
        if ($do_a =~ /^[ ;:\.,]*and /)
        {
            $do_a =~ s/^[ ;:\.,]*and //;
            next;
        }
        last if $do_a !~ /^[ ;:\.,]*([a0-9][0-9]*) ([a-z][^ ;:\.,]*)/;
        $num = $1;
        $den = $2;
        $num = 1 if ($num eq 'a');
        $do_a =~ s/^[ ;:\.,]*//;
        $do_a = substr $do_a, length($num) + length($den) + 1;
        $den =~ s/,$//;
        $den =~ s/s$//;
        $mul = 0;
        if ($den eq 'second') { $mul = 1; }
        if ($den eq 'minute') { $mul = 60; }
        if ($den eq 'hour')   { $mul = 60*60; }
        if ($den eq 'day')    { $mul = 60*60*24; }
        if ($den eq 'week')   { $mul = 60*60*24*4; }
        if ($den eq 'month')  { $mul = 60*60*24*30.43685; }
        if ($den eq 'year')   { $mul = 60*60*24*365.2422; }
        if ($mul == 0)
        {
            $err = "bad denominator: $den";
            print " -!- REMINDER -!- $err";
            $server->command("msg $target Ouch, looks like that was a $err");
            return;
        }
        $dur += $mul * $num;
    }
    $dur = int($dur);
    $abs = $time + $dur;
    ins(($abs, $do_h, $nick, $do_t, $target, $do_a));
    state_save();

    @weekday = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");
    ($gsec,$gmin,$ghour,$gday,$gmon,$gyear,$gwday,$gyday,$gdst) = gmtime($abs);
    $human = sprintf("%d-%02d-%02d (%s) %02d:%02d:%02d",
        $gyear + 1900, $gmon+1, $gday, $weekday[$gwday], $ghour, $gmin, $gsec
    );
    $prt = "よし！ I'll remind ";
    $prt .= 'you' if ($do_t eq $nock);
    $prt .= $do_t if ($do_t ne $nock);
    $prt .= " about that on $human - in $dur seconds (☞ﾟ∀ﾟ)☞";
    $server->command("msg $target $prt");
    print " -!- REMINDER -!- $text";
    return;
}