>replace officer sci with Spock

if ($command =~ /^(?:replace\s+)?officer\s+([a-z]+)\s+with ([a-z]+)/i)
{
  $crewStation = $1;
  $newOfficerName = $2;
  $officer->{science} = $newOfficerName if ('science' =~ /$crewStation/);
  ...
}