$A = quotemeta -4;
$w = quotemeta 500;

  $re =
  '/^  \s*
   $A \s*
   -? \s*
   cos \s*
   (?: \( \d+ t \)
     | \d+ t \s ) \s*
   A \s*
   $/x;