1. $myroom->{$room}->{r}
2. (/l: (.+)$/i)
3. $system = 0 ;
   $Proom = $1 ;
   $cDept = uc $2 ;