my $name = qr/([\w_-=]+)\s*/;
my $enum = qr/(([\d.-+,])\s*/;
<p>
while ( <> )
{
  if ( my @captures = /$name$name$enum/ )
  {
    do_something_here(@captures);
  }
}