if ( $var =~ /^(pl|ptk) (\w+\.\1)$/) {
  my ($mode, $program) = ($1, $2);
}