if ($move =~ /\b(north|south|east|west)\b/i) {