s/\s+//g for ($from, $dept, $to, $arr);