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