$delay =~ m/[+-]d(?:ela?y?)?[-+]([^\@]+)/;
$delay = $1;
- $delay =~ s/_/ /;
- $delay =~ s/=/:/;
+ $delay =~ s/_/ /g;
+ $delay =~ s/=/:/g;
Thus, foo-delay-now+5_min@bar.baz becomes now+5 min and
foo-del+00=30=00@bar.baz becomes 00:30:00
if ($options{email}) {
$delay =~ m/[+-]d(?:ela?y?)?[-+]([^\@]+)/;
$delay = $1;
- $delay =~ s/_/ /;
- $delay =~ s/=/:/;
+ $delay =~ s/_/ /g;
+ $delay =~ s/=/:/g;
}
# slurp email
local $/;