my $message; my $q; my $reTime='\d*\.?\d+(?:\s*(?:h(?:ours?)?' . '|m(?:in(?:ute)?s?)?|s(?:ec(?:ond)?s?)?))?'; if( $message !~ m{ ^/(borg|consume) \s+(?: (\S+) | \[ ([^\]]+) \] ) (?:| \s+($reTime) (?:| \s+(\S.*) ) )\s*$ }ix ) { $q->param( "sentmessage", qq[Syntax error in /borg; command ignored.] ); return; }